/ Developer CD Series 1990 September: Essentials 4 / ADC Developer CD (1990-09) [Essentials 4]_iso / Developer Essentials 4.iso / d e v e l o p / develop 4 code / A:ROSE / TaskSampleƒ / TaskSample.c

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 54 61 73 6b 53 61 | 6d 70 6c 65 2e 63 00 00 |..TaskSa|mple.c..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 71 00 |.TEXTMPS| .....q.|
|00000050| 00 00 00 00 00 3f ae 00 | 00 01 7e a2 ff 96 a1 a2 |.....?..|..~.....|
|00000060| ff 96 a1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 31 7e 00 00 |........|....1~..|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 0d 23 0d 23 09 54 61 73 | 6b 53 61 6d 70 6c 65 2e |.#.#.Tas|kSample.|
|000000e0| 63 0d 23 0d 23 09 64 65 | 72 69 76 65 64 20 66 72 |c.#.#.de|rived fr|
|000000f0| 6f 6d 20 4d 50 57 20 33 | 2e 31 27 73 20 22 53 61 |om MPW 3|.1's "Sa|
|00000100| 6d 70 6c 65 22 2c 20 61 | 20 4d 75 6c 74 69 46 69 |mple", a| MultiFi|
|00000110| 6e 64 65 72 2d 41 77 61 | 72 65 20 53 69 6d 70 6c |nder-Awa|re Simpl|
|00000120| 65 20 53 61 6d 70 6c 65 | 20 41 70 70 6c 69 63 61 |e Sample| Applica|
|00000130| 74 69 6f 6e 0d 23 0d 23 | 20 20 20 44 65 6d 6f 73 |tion.#.#|   Demos|
|00000140| 74 72 61 74 65 73 20 68 | 6f 77 20 74 6f 20 70 6f |trates h|ow to po|
|00000150| 72 74 20 41 2f 52 4f 53 | 45 20 74 61 73 6b 73 20 |rt A/ROS|E tasks |
|00000160| 74 6f 20 74 68 65 20 4d | 61 63 4f 53 20 75 6e 64 |to the M|acOS und|
|00000170| 65 72 20 4d 75 6c 74 69 | 46 69 6e 64 65 72 0d 23 |er Multi|Finder.#|
|00000180| 0d 23 20 20 20 52 65 66 | 65 72 20 74 6f 20 74 68 |.#   Ref|er to th|
|00000190| 65 20 6f 72 69 67 69 6e | 61 6c 20 73 6f 75 72 63 |e origin|al sourc|
|000001a0| 65 20 63 6f 64 65 20 69 | 6e 20 74 68 65 20 4d 50 |e code i|n the MP|
|000001b0| 57 20 43 45 78 61 6d 70 | 6c 65 73 20 66 6f 6c 64 |W CExamp|les fold|
|000001c0| 65 72 20 66 6f 72 20 6d | 6f 72 65 20 63 6f 6d 6d |er for m|ore comm|
|000001d0| 65 6e 74 73 0d 23 0d 23 | 09 43 6f 6d 70 6f 6e 65 |ents.#.#|.Compone|
|000001e0| 6e 74 73 3a 0d 23 09 09 | 09 09 54 61 73 6b 53 61 |nts:.#..|..TaskSa|
|000001f0| 6d 70 6c 65 2e 63 0d 23 | 09 09 09 09 54 61 73 6b |mple.c.#|....Task|
|00000200| 53 61 6d 70 6c 65 2e 72 | 0d 23 09 09 09 09 54 61 |Sample.r|.#....Ta|
|00000210| 73 6b 53 61 6d 70 6c 65 | 2e 68 0d 23 09 09 09 09 |skSample|.h.#....|
|00000220| 54 61 73 6b 53 61 6d 70 | 6c 65 2e 6d 61 6b 65 0d |TaskSamp|le.make.|
|00000230| 23 0d 23 20 20 4d 50 57 | 20 62 75 69 6c 64 20 63 |#.#  MPW| build c|
|00000240| 6f 6d 6d 61 6e 64 73 3a | 0d 23 0d 09 09 43 20 54 |ommands:|.#...C T|
|00000250| 61 73 6b 53 61 6d 70 6c | 65 2e 63 0d 09 09 4c 69 |askSampl|e.c...Li|
|00000260| 6e 6b 20 54 61 73 6b 53 | 61 6d 70 6c 65 2e 63 2e |nk TaskS|ample.c.|
|00000270| 6f 20 b6 0d 09 09 09 22 | 7b 43 4c 69 62 72 61 72 |o ....."|{CLibrar|
|00000280| 69 65 73 7d 22 43 52 75 | 6e 74 69 6d 65 2e 6f 20 |ies}"CRu|ntime.o |
|00000290| b6 0d 09 09 09 22 7b 43 | 4c 69 62 72 61 72 69 65 |....."{C|Librarie|
|000002a0| 73 7d 22 43 49 6e 74 65 | 72 66 61 63 65 2e 6f 20 |s}"CInte|rface.o |
|000002b0| b6 0d 09 09 09 22 7b 4c | 69 62 72 61 72 69 65 73 |....."{L|ibraries|
|000002c0| 7d 22 49 6e 74 65 72 66 | 61 63 65 2e 6f 20 b6 0d |}"Interf|ace.o ..|
|000002d0| 09 09 09 22 7b 41 52 4f | 53 45 50 72 65 70 7d 22 |..."{ARO|SEPrep}"|
|000002e0| 49 50 43 47 6c 75 65 2e | 6f 20 b6 0d 09 09 09 2d |IPCGlue.|o .....-|
|000002f0| 6f 20 54 61 73 6b 53 61 | 6d 70 6c 65 20 0d 09 09 |o TaskSa|mple ...|
|00000300| 52 65 7a 20 2d 72 64 20 | 2d 6f 20 54 61 73 6b 53 |Rez -rd |-o TaskS|
|00000310| 61 6d 70 6c 65 20 54 61 | 73 6b 53 61 6d 70 6c 65 |ample Ta|skSample|
|00000320| 2e 72 20 2d 61 70 70 65 | 6e 64 0d 23 0d 23 0d 2d |.r -appe|nd.#.#.-|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 2f 0d |--------|-----*/.|
|00000380| 0d 0d 0d 23 69 6e 63 6c | 75 64 65 20 3c 54 79 70 |...#incl|ude <Typ|
|00000390| 65 73 2e 68 3e 0d 23 69 | 6e 63 6c 75 64 65 20 3c |es.h>.#i|nclude <|
|000003a0| 52 65 73 6f 75 72 63 65 | 73 2e 68 3e 0d 23 69 6e |Resource|s.h>.#in|
|000003b0| 63 6c 75 64 65 20 3c 51 | 75 69 63 6b 44 72 61 77 |clude <Q|uickDraw|
|000003c0| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 46 6f |.h>.#inc|lude <Fo|
|000003d0| 6e 74 73 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |nts.h>.#|include |
|000003e0| 3c 45 76 65 6e 74 73 2e | 68 3e 0d 23 69 6e 63 6c |<Events.|h>.#incl|
|000003f0| 75 64 65 20 3c 57 69 6e | 64 6f 77 73 2e 68 3e 0d |ude <Win|dows.h>.|
|00000400| 23 69 6e 63 6c 75 64 65 | 20 3c 4d 65 6e 75 73 2e |#include| <Menus.|
|00000410| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 54 65 78 |h>.#incl|ude <Tex|
|00000420| 74 45 64 69 74 2e 68 3e | 0d 23 69 6e 63 6c 75 64 |tEdit.h>|.#includ|
|00000430| 65 20 3c 44 69 61 6c 6f | 67 73 2e 68 3e 0d 23 69 |e <Dialo|gs.h>.#i|
|00000440| 6e 63 6c 75 64 65 20 3c | 44 65 73 6b 2e 68 3e 0d |nclude <|Desk.h>.|
|00000450| 23 69 6e 63 6c 75 64 65 | 20 3c 54 6f 6f 6c 55 74 |#include| <ToolUt|
|00000460| 69 6c 73 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |ils.h>.#|include |
|00000470| 3c 4d 65 6d 6f 72 79 2e | 68 3e 0d 23 69 6e 63 6c |<Memory.|h>.#incl|
|00000480| 75 64 65 20 3c 53 65 67 | 4c 6f 61 64 2e 68 3e 0d |ude <Seg|Load.h>.|
|00000490| 23 69 6e 63 6c 75 64 65 | 20 3c 46 69 6c 65 73 2e |#include| <Files.|
|000004a0| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 4f 53 55 |h>.#incl|ude <OSU|
|000004b0| 74 69 6c 73 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |tils.h>.|#include|
|000004c0| 20 3c 4f 53 45 76 65 6e | 74 73 2e 68 3e 0d 23 69 | <OSEven|ts.h>.#i|
|000004d0| 6e 63 6c 75 64 65 20 3c | 44 69 73 6b 49 6e 69 74 |nclude <|DiskInit|
|000004e0| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 50 61 |.h>.#inc|lude <Pa|
|000004f0| 63 6b 61 67 65 73 2e 68 | 3e 0d 23 69 6e 63 6c 75 |ckages.h|>.#inclu|
|00000500| 64 65 20 3c 54 72 61 70 | 73 2e 68 3e 0d 23 69 6e |de <Trap|s.h>.#in|
|00000510| 63 6c 75 64 65 20 3c 53 | 74 72 69 6e 67 73 2e 68 |clude <S|trings.h|
|00000520| 3e 0d 23 69 6e 63 6c 75 | 64 65 20 22 54 61 73 6b |>.#inclu|de "Task|
|00000530| 53 61 6d 70 6c 65 2e 68 | 22 09 09 2f 2f 20 62 72 |Sample.h|"..// br|
|00000540| 69 6e 67 20 69 6e 20 61 | 6c 6c 20 74 68 65 20 23 |ing in a|ll the #|
|00000550| 64 65 66 69 6e 65 73 20 | 66 6f 72 20 54 61 73 6b |defines |for Task|
|00000560| 53 61 6d 70 6c 65 20 0d | 0d 0d 2f 2f 2d 2d 2d 2d |Sample .|..//----|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005b0| 2d 2d 2d 2d 2d 2d 2d 0d | 2f 2f 20 41 2f 52 4f 53 |-------.|// A/ROS|
|000005c0| 45 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 73 20 28 |E declar|ations (|
|000005d0| 66 72 6f 6d 20 22 6f 73 | 2e 68 22 29 3a 0d 0d 74 |from "os|.h"):..t|
|000005e0| 79 70 65 64 65 66 20 6c | 6f 6e 67 09 74 69 64 5f |ypedef l|ong.tid_|
|000005f0| 74 79 70 65 3b 0d 0d 73 | 74 72 75 63 74 20 6d 4d |type;..s|truct mM|
|00000600| 65 73 73 61 67 65 0d 7b | 0d 09 73 74 72 75 63 74 |essage.{|..struct|
|00000610| 09 6d 4d 65 73 73 61 67 | 65 09 2a 6d 4e 65 78 74 |.mMessag|e.*mNext|
|00000620| 3b 0d 09 6c 6f 6e 67 09 | 09 09 09 6d 49 64 3b 0d |;..long.|...mId;.|
|00000630| 09 73 68 6f 72 74 09 09 | 09 09 6d 43 6f 64 65 3b |.short..|..mCode;|
|00000640| 0d 09 73 68 6f 72 74 09 | 09 09 09 6d 53 74 61 74 |..short.|...mStat|
|00000650| 75 73 3b 0d 09 75 6e 73 | 69 67 6e 65 64 09 73 68 |us;..uns|igned.sh|
|00000660| 6f 72 74 09 6d 50 72 69 | 6f 72 69 74 79 3b 0d 09 |ort.mPri|ority;..|
|00000670| 74 69 64 5f 74 79 70 65 | 09 09 09 6d 46 72 6f 6d |tid_type|...mFrom|
|00000680| 3b 0d 09 74 69 64 5f 74 | 79 70 65 09 09 09 6d 54 |;..tid_t|ype...mT|
|00000690| 6f 3b 0d 09 75 6e 73 69 | 67 6e 65 64 09 6c 6f 6e |o;..unsi|gned.lon|
|000006a0| 67 09 6d 53 44 61 74 61 | 20 5b 33 5d 3b 0d 09 75 |g.mSData| [3];..u|
|000006b0| 6e 73 69 67 6e 65 64 09 | 6c 6f 6e 67 09 6d 4f 44 |nsigned.|long.mOD|
|000006c0| 61 74 61 20 5b 33 5d 3b | 0d 09 6c 6f 6e 67 09 09 |ata [3];|..long..|
|000006d0| 09 09 6d 44 61 74 61 53 | 69 7a 65 3b 09 09 2f 2f |..mDataS|ize;..//|
|000006e0| 20 53 69 7a 65 20 6f 66 | 20 64 61 74 61 20 62 75 | Size of| data bu|
|000006f0| 66 66 65 72 20 69 6e 20 | 62 79 74 65 73 2e 20 73 |ffer in |bytes. s|
|00000700| 65 74 20 74 6f 20 6e 65 | 67 61 74 69 76 65 20 0d |et to ne|gative .|
|00000710| 09 09 09 09 09 09 09 09 | 09 09 2f 2f 20 73 69 7a |........|..// siz|
|00000720| 65 20 6f 66 20 62 75 66 | 66 65 72 20 69 66 20 62 |e of buf|fer if b|
|00000730| 75 66 66 65 72 20 69 73 | 20 73 68 61 72 65 64 0d |uffer is| shared.|
|00000740| 09 09 09 09 09 09 09 09 | 09 09 2f 2f 20 62 65 74 |........|..// bet|
|00000750| 77 65 65 6e 20 74 61 73 | 6b 73 2e 20 65 67 2e 20 |ween tas|ks. eg. |
|00000760| 42 75 66 66 65 72 20 63 | 61 6e 6e 6f 74 20 62 65 |Buffer c|annot be|
|00000770| 20 63 6f 70 69 65 64 20 | 0d 09 63 68 61 72 09 09 | copied |..char..|
|00000780| 09 09 2a 6d 44 61 74 61 | 50 74 72 3b 0d 7d 3b 0d |..*mData|Ptr;.};.|
|00000790| 0d 74 79 70 65 64 65 66 | 20 73 74 72 75 63 74 20 |.typedef| struct |
|000007a0| 6d 4d 65 73 73 61 67 65 | 20 6d 4d 65 73 73 61 67 |mMessage| mMessag|
|000007b0| 65 3b 0d 0d 2f 2f 20 61 | 6e 64 20 23 64 65 66 69 |e;..// a|nd #defi|
|000007c0| 6e 65 27 73 20 66 72 6f | 6d 20 22 6d 61 6e 61 67 |ne's fro|m "manag|
|000007d0| 65 72 73 2e 68 22 3a 0d | 0d 23 64 65 66 69 6e 65 |ers.h":.|.#define|
|000007e0| 09 4f 53 5f 55 4e 4b 4e | 4f 57 4e 5f 4d 45 53 53 |.OS_UNKN|OWN_MESS|
|000007f0| 41 47 45 09 09 28 31 3c | 3c 38 29 09 2f 2f 20 75 |AGE..(1<|<8).// u|
|00000800| 6e 6b 6e 6f 77 6e 20 6d | 65 73 73 61 67 65 09 09 |nknown m|essage..|
|00000810| 09 09 09 0d 23 64 65 66 | 69 6e 65 09 4d 61 63 68 |....#def|ine.Mach|
|00000820| 69 6e 65 5f 56 69 73 69 | 62 6c 65 09 09 09 30 09 |ine_Visi|ble...0.|
|00000830| 09 2f 2f 20 52 65 67 69 | 73 74 65 72 5f 74 61 73 |.// Regi|ster_tas|
|00000840| 6b 20 4d 61 63 68 69 6e | 65 20 76 69 73 69 62 6c |k Machin|e visibl|
|00000850| 65 20 66 6c 61 67 09 0d | 2f 2f 2d 2d 2d 2d 2d 2d |e flag..|//------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008a0| 2d 2d 2d 2d 2d 0d 0d 2f | 2f 20 67 6c 6f 62 61 6c |-----../|/ global|
|000008b0| 20 76 61 72 69 61 62 6c | 65 73 0d 0d 53 79 73 45 | variabl|es..SysE|
|000008c0| 6e 76 52 65 63 09 67 4d | 61 63 3b 09 09 09 09 2f |nvRec.gM|ac;..../|
|000008d0| 2f 20 73 65 74 20 75 70 | 20 62 79 20 49 6e 69 74 |/ set up| by Init|
|000008e0| 69 61 6c 69 7a 65 20 0d | 42 6f 6f 6c 65 61 6e 09 |ialize .|Boolean.|
|000008f0| 09 67 48 61 73 57 61 69 | 74 4e 65 78 74 45 76 65 |.gHasWai|tNextEve|
|00000900| 6e 74 3b 09 2f 2f 20 73 | 65 74 20 75 70 20 62 79 |nt;.// s|et up by|
|00000910| 20 49 6e 69 74 69 61 6c | 69 7a 65 20 0d 42 6f 6f | Initial|ize .Boo|
|00000920| 6c 65 61 6e 09 09 67 49 | 6e 42 61 63 6b 67 72 6f |lean..gI|nBackgro|
|00000930| 75 6e 64 3b 09 09 2f 2f | 20 6d 61 69 6e 74 61 69 |und;..//| maintai|
|00000940| 6e 65 64 20 62 79 20 49 | 6e 69 74 69 61 6c 69 7a |ned by I|nitializ|
|00000950| 65 20 61 6e 64 20 44 6f | 45 76 65 6e 74 20 0d 6c |e and Do|Event .l|
|00000960| 6f 6e 67 09 09 67 53 6c | 65 65 70 56 61 6c 3b 09 |ong..gSl|eepVal;.|
|00000970| 09 09 2f 2f 20 4d 75 6c | 74 69 46 69 6e 64 65 72 |..// Mul|tiFinder|
|00000980| 20 73 6c 65 65 70 20 76 | 61 6c 75 65 0d 09 09 09 | sleep v|alue....|
|00000990| 09 09 09 09 09 2f 2f 20 | 66 6f 72 20 57 61 69 74 |.....// |for Wait|
|000009a0| 4e 65 78 74 45 76 65 6e | 74 0d 0d 73 68 6f 72 74 |NextEven|t..short|
|000009b0| 09 09 67 52 65 63 65 69 | 76 65 64 3b 20 20 20 20 |..gRecei|ved;    |
|000009c0| 20 20 20 20 20 20 2f 2f | 20 6e 75 6d 62 65 72 20 |      //| number |
|000009d0| 6f 66 20 72 65 63 65 69 | 76 65 64 2f 73 65 6e 74 |of recei|ved/sent|
|000009e0| 20 6d 65 73 73 61 67 65 | 73 20 0d 73 68 6f 72 74 | message|s .short|
|000009f0| 09 09 67 53 65 6e 74 3b | 0d 6c 6f 6e 67 09 09 67 |..gSent;|.long..g|
|00000a00| 54 49 44 3b 09 09 09 09 | 2f 2f 20 6d 79 20 74 61 |TID;....|// my ta|
|00000a10| 73 6b 20 69 64 65 6e 74 | 69 66 69 65 72 20 72 65 |sk ident|ifier re|
|00000a20| 74 75 72 6e 65 64 20 62 | 79 20 4f 70 65 6e 51 75 |turned b|y OpenQu|
|00000a30| 65 75 65 28 29 20 0d 57 | 69 6e 64 6f 77 50 74 72 |eue() .W|indowPtr|
|00000a40| 09 67 4d 79 57 69 6e 64 | 6f 77 3b 09 09 09 2f 2f |.gMyWind|ow;...//|
|00000a50| 20 6f 6e 6c 79 20 6f 6e | 65 20 77 69 6e 64 6f 77 | only on|e window|
|00000a60| 20 0d 0d 2f 2f 20 50 72 | 6f 74 6f 74 79 70 65 73 | ..// Pr|ototypes|
|00000a70| 20 66 6f 72 20 70 61 72 | 61 6d 65 74 65 72 20 74 | for par|ameter t|
|00000a80| 79 70 65 20 63 68 65 63 | 6b 69 6e 67 2e 20 0d 0d |ype chec|king. ..|
|00000a90| 76 6f 69 64 20 45 76 65 | 6e 74 4c 6f 6f 70 28 20 |void Eve|ntLoop( |
|00000aa0| 76 6f 69 64 20 29 3b 0d | 76 6f 69 64 20 44 6f 45 |void );.|void DoE|
|00000ab0| 76 65 6e 74 28 20 45 76 | 65 6e 74 52 65 63 6f 72 |vent( Ev|entRecor|
|00000ac0| 64 20 2a 65 76 65 6e 74 | 20 29 3b 0d 76 6f 69 64 |d *event| );.void|
|00000ad0| 20 44 6f 55 70 64 61 74 | 65 28 20 57 69 6e 64 6f | DoUpdat|e( Windo|
|00000ae0| 77 50 74 72 20 77 69 6e | 64 6f 77 20 29 3b 0d 76 |wPtr win|dow );.v|
|00000af0| 6f 69 64 20 44 6f 41 63 | 74 69 76 61 74 65 28 20 |oid DoAc|tivate( |
|00000b00| 57 69 6e 64 6f 77 50 74 | 72 20 77 69 6e 64 6f 77 |WindowPt|r window|
|00000b10| 2c 20 42 6f 6f 6c 65 61 | 6e 20 62 65 63 6f 6d 69 |, Boolea|n becomi|
|00000b20| 6e 67 41 63 74 69 76 65 | 20 29 3b 0d 76 6f 69 64 |ngActive| );.void|
|00000b30| 20 44 6f 43 6f 6e 74 65 | 6e 74 43 6c 69 63 6b 28 | DoConte|ntClick(|
|00000b40| 20 57 69 6e 64 6f 77 50 | 74 72 20 77 69 6e 64 6f | WindowP|tr windo|
|00000b50| 77 20 29 3b 0d 76 6f 69 | 64 20 44 72 61 77 57 69 |w );.voi|d DrawWi|
|00000b60| 6e 64 6f 77 28 20 57 69 | 6e 64 6f 77 50 74 72 20 |ndow( Wi|ndowPtr |
|00000b70| 77 69 6e 64 6f 77 20 29 | 3b 0d 76 6f 69 64 20 41 |window )|;.void A|
|00000b80| 64 6a 75 73 74 4d 65 6e | 75 73 28 20 76 6f 69 64 |djustMen|us( void|
|00000b90| 20 29 3b 0d 76 6f 69 64 | 20 44 6f 4d 65 6e 75 43 | );.void| DoMenuC|
|00000ba0| 6f 6d 6d 61 6e 64 28 20 | 6c 6f 6e 67 20 6d 65 6e |ommand( |long men|
|00000bb0| 75 52 65 73 75 6c 74 20 | 29 3b 0d 42 6f 6f 6c 65 |uResult |);.Boole|
|00000bc0| 61 6e 20 44 6f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |an DoClo|seWindow|
|00000bd0| 28 20 57 69 6e 64 6f 77 | 50 74 72 20 77 69 6e 64 |( Window|Ptr wind|
|00000be0| 6f 77 20 29 3b 0d 76 6f | 69 64 20 54 65 72 6d 69 |ow );.vo|id Termi|
|00000bf0| 6e 61 74 65 28 20 76 6f | 69 64 20 29 3b 0d 76 6f |nate( vo|id );.vo|
|00000c00| 69 64 20 49 6e 69 74 69 | 61 6c 69 7a 65 28 20 76 |id Initi|alize( v|
|00000c10| 6f 69 64 20 29 3b 0d 76 | 6f 69 64 20 46 6f 72 63 |oid );.v|oid Forc|
|00000c20| 65 45 6e 76 69 72 6f 6e | 73 28 20 76 6f 69 64 20 |eEnviron|s( void |
|00000c30| 29 3b 0d 42 6f 6f 6c 65 | 61 6e 20 49 73 41 70 70 |);.Boole|an IsApp|
|00000c40| 57 69 6e 64 6f 77 28 20 | 57 69 6e 64 6f 77 50 74 |Window( |WindowPt|
|00000c50| 72 20 77 69 6e 64 6f 77 | 20 29 3b 0d 42 6f 6f 6c |r window| );.Bool|
|00000c60| 65 61 6e 20 49 73 44 41 | 57 69 6e 64 6f 77 28 20 |ean IsDA|Window( |
|00000c70| 57 69 6e 64 6f 77 50 74 | 72 20 77 69 6e 64 6f 77 |WindowPt|r window|
|00000c80| 20 29 3b 0d 42 6f 6f 6c | 65 61 6e 20 54 72 61 70 | );.Bool|ean Trap|
|00000c90| 41 76 61 69 6c 61 62 6c | 65 28 20 73 68 6f 72 74 |Availabl|e( short|
|00000ca0| 20 74 4e 75 6d 62 65 72 | 2c 20 54 72 61 70 54 79 | tNumber|, TrapTy|
|00000cb0| 70 65 20 74 54 79 70 65 | 20 29 3b 0d 76 6f 69 64 |pe tType| );.void|
|00000cc0| 20 41 6c 65 72 74 55 73 | 65 72 28 20 73 68 6f 72 | AlertUs|er( shor|
|00000cd0| 74 20 65 72 72 6f 72 20 | 29 3b 0d 76 6f 69 64 20 |t error |);.void |
|00000ce0| 42 69 67 42 61 64 45 72 | 72 6f 72 28 20 73 68 6f |BigBadEr|ror( sho|
|00000cf0| 72 74 20 65 72 72 6f 72 | 20 29 3b 0d 76 6f 69 64 |rt error| );.void|
|00000d00| 20 4e 75 6d 54 6f 48 65 | 78 28 20 6c 6f 6e 67 20 | NumToHe|x( long |
|00000d10| 6e 2c 20 73 68 6f 72 74 | 20 64 2c 20 63 68 61 72 |n, short| d, char|
|00000d20| 20 2a 73 29 3b 0d 73 68 | 6f 72 74 20 41 52 4f 53 | *s);.sh|ort AROS|
|00000d30| 45 50 72 65 70 28 29 3b | 0d 76 6f 69 64 20 54 61 |EPrep();|.void Ta|
|00000d40| 73 6b 50 72 6f 63 65 73 | 73 69 6e 67 28 29 3b 0d |skProces|sing();.|
|00000d50| 0d 2f 2f 20 41 2f 52 4f | 53 45 20 70 72 6f 74 6f |.// A/RO|SE proto|
|00000d60| 74 79 70 65 73 20 28 66 | 72 6f 6d 20 22 6f 73 2e |types (f|rom "os.|
|00000d70| 68 22 29 3a 0d 0d 65 78 | 74 65 72 6e 09 74 69 64 |h"):..ex|tern.tid|
|00000d80| 5f 74 79 70 65 09 4f 70 | 65 6e 51 75 65 75 65 28 |_type.Op|enQueue(|
|00000d90| 76 6f 69 64 20 28 2a 29 | 28 29 29 3b 0d 65 78 74 |void (*)|());.ext|
|00000da0| 65 72 6e 09 76 6f 69 64 | 09 09 43 6c 6f 73 65 51 |ern.void|..CloseQ|
|00000db0| 75 65 75 65 28 29 3b 0d | 65 78 74 65 72 6e 09 63 |ueue();.|extern.c|
|00000dc0| 68 61 72 09 09 52 65 67 | 69 73 74 65 72 5f 54 61 |har..Reg|ister_Ta|
|00000dd0| 73 6b 28 63 68 61 72 20 | 2a 2c 20 63 68 61 72 20 |sk(char |*, char |
|00000de0| 2a 2c 20 73 68 6f 72 74 | 29 3b 0d 65 78 74 65 72 |*, short|);.exter|
|00000df0| 6e 09 76 6f 69 64 09 09 | 53 65 6e 64 28 6d 4d 65 |n.void..|Send(mMe|
|00000e00| 73 73 61 67 65 20 2a 29 | 3b 0d 65 78 74 65 72 6e |ssage *)|;.extern|
|00000e10| 09 6d 4d 65 73 73 61 67 | 65 20 09 2a 52 65 63 65 |.mMessag|e .*Rece|
|00000e20| 69 76 65 28 75 6e 73 69 | 67 6e 65 64 20 6c 6f 6e |ive(unsi|gned lon|
|00000e30| 67 2c 20 74 69 64 5f 74 | 79 70 65 2c 20 75 6e 73 |g, tid_t|ype, uns|
|00000e40| 69 67 6e 65 64 20 73 68 | 6f 72 74 2c 20 6c 6f 6e |igned sh|ort, lon|
|00000e50| 67 2c 20 2e 2e 2e 29 3b | 0d 65 78 74 65 72 6e 20 |g, ...);|.extern |
|00000e60| 20 76 6f 69 64 09 09 46 | 72 65 65 4d 73 67 28 29 | void..F|reeMsg()|
|00000e70| 3b 0d 65 78 74 65 72 6e | 09 76 6f 69 64 09 09 53 |;.extern|.void..S|
|00000e80| 77 61 70 54 49 44 28 6d | 4d 65 73 73 61 67 65 20 |wapTID(m|Message |
|00000e90| 2a 29 3b 0d 0d 2f 2f 20 | 44 65 66 69 6e 65 20 48 |*);..// |Define H|
|00000ea0| 69 57 72 64 20 61 6e 64 | 20 4c 6f 57 72 64 20 6d |iWrd and| LoWrd m|
|00000eb0| 61 63 72 6f 73 20 66 6f | 72 20 65 66 66 69 63 69 |acros fo|r effici|
|00000ec0| 65 6e 63 79 2e 20 0d 23 | 64 65 66 69 6e 65 20 48 |ency. .#|define H|
|00000ed0| 69 57 72 64 28 61 4c 6f | 6e 67 29 09 28 28 28 61 |iWrd(aLo|ng).(((a|
|00000ee0| 4c 6f 6e 67 29 20 3e 3e | 20 31 36 29 20 26 20 30 |Long) >>| 16) & 0|
|00000ef0| 78 46 46 46 46 29 0d 23 | 64 65 66 69 6e 65 20 4c |xFFFF).#|define L|
|00000f00| 6f 57 72 64 28 61 4c 6f | 6e 67 29 09 28 28 61 4c |oWrd(aLo|ng).((aL|
|00000f10| 6f 6e 67 29 20 26 20 30 | 78 46 46 46 46 29 0d 0d |ong) & 0|xFFFF)..|
|00000f20| 0d 65 78 74 65 72 6e 20 | 76 6f 69 64 20 5f 44 61 |.extern |void _Da|
|00000f30| 74 61 49 6e 69 74 28 29 | 3b 0d 0d 0d 23 70 72 61 |taInit()|;...#pra|
|00000f40| 67 6d 61 20 73 65 67 6d | 65 6e 74 20 4d 61 69 6e |gma segm|ent Main|
|00000f50| 0d 6d 61 69 6e 28 29 0d | 7b 0d 09 55 6e 6c 6f 61 |.main().|{..Unloa|
|00000f60| 64 53 65 67 28 28 50 74 | 72 29 20 5f 44 61 74 61 |dSeg((Pt|r) _Data|
|00000f70| 49 6e 69 74 29 3b 09 09 | 2f 2f 20 6e 6f 74 65 20 |Init);..|// note |
|00000f80| 74 68 61 74 20 5f 44 61 | 74 61 49 6e 69 74 20 6d |that _Da|taInit m|
|00000f90| 75 73 74 20 6e 6f 74 20 | 62 65 20 69 6e 20 4d 61 |ust not |be in Ma|
|00000fa0| 69 6e 21 20 0d 09 0d 09 | 4d 61 78 41 70 70 6c 5a |in! ....|MaxApplZ|
|00000fb0| 6f 6e 65 28 29 3b 09 09 | 09 09 09 2f 2f 20 65 78 |one();..|...// ex|
|00000fc0| 70 61 6e 64 20 74 68 65 | 20 68 65 61 70 20 73 6f |pand the| heap so|
|00000fd0| 20 63 6f 64 65 20 73 65 | 67 6d 65 6e 74 73 20 6c | code se|gments l|
|00000fe0| 6f 61 64 20 61 74 20 74 | 68 65 20 74 6f 70 20 0d |oad at t|he top .|
|00000ff0| 0d 09 49 6e 69 74 69 61 | 6c 69 7a 65 28 29 3b 09 |..Initia|lize();.|
|00001000| 09 09 09 09 2f 2f 20 69 | 6e 69 74 69 61 6c 69 7a |....// i|nitializ|
|00001010| 65 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 0d 09 |e the pr|ogram ..|
|00001020| 55 6e 6c 6f 61 64 53 65 | 67 28 28 50 74 72 29 20 |UnloadSe|g((Ptr) |
|00001030| 49 6e 69 74 69 61 6c 69 | 7a 65 29 3b 09 2f 2f 20 |Initiali|ze);.// |
|00001040| 6e 6f 74 65 20 74 68 61 | 74 20 49 6e 69 74 69 61 |note tha|t Initia|
|00001050| 6c 69 7a 65 20 6d 75 73 | 74 20 6e 6f 74 20 62 65 |lize mus|t not be|
|00001060| 20 69 6e 20 4d 61 69 6e | 21 20 0d 0d 09 45 76 65 | in Main|! ...Eve|
|00001070| 6e 74 4c 6f 6f 70 28 29 | 3b 09 09 09 09 09 2f 2f |ntLoop()|;.....//|
|00001080| 20 63 61 6c 6c 20 74 68 | 65 20 6d 61 69 6e 20 65 | call th|e main e|
|00001090| 76 65 6e 74 20 6c 6f 6f | 70 20 0d 7d 0d 0d 0d 23 |vent loo|p .}...#|
|000010a0| 70 72 61 67 6d 61 20 73 | 65 67 6d 65 6e 74 20 4d |pragma s|egment M|
|000010b0| 61 69 6e 0d 76 6f 69 64 | 20 45 76 65 6e 74 4c 6f |ain.void| EventLo|
|000010c0| 6f 70 28 29 0d 7b 0d 09 | 42 6f 6f 6c 65 61 6e 09 |op().{..|Boolean.|
|000010d0| 09 67 6f 74 45 76 65 6e | 74 3b 0d 09 45 76 65 6e |.gotEven|t;..Even|
|000010e0| 74 52 65 63 6f 72 64 09 | 65 76 65 6e 74 3b 0d 0d |tRecord.|event;..|
|000010f0| 09 64 6f 20 7b 0d 09 09 | 09 67 6f 74 45 76 65 6e |.do {...|.gotEven|
|00001100| 74 20 3d 20 57 61 69 74 | 4e 65 78 74 45 76 65 6e |t = Wait|NextEven|
|00001110| 74 28 65 76 65 72 79 45 | 76 65 6e 74 2c 20 26 65 |t(everyE|vent, &e|
|00001120| 76 65 6e 74 2c 20 67 53 | 6c 65 65 70 56 61 6c 2c |vent, gS|leepVal,|
|00001130| 20 6e 69 6c 29 3b 0d 09 | 09 69 66 20 28 20 67 6f | nil);..|.if ( go|
|00001140| 74 45 76 65 6e 74 20 29 | 0d 09 09 09 44 6f 45 76 |tEvent )|....DoEv|
|00001150| 65 6e 74 28 26 65 76 65 | 6e 74 29 3b 0d 0d 2f 2f |ent(&eve|nt);..//|
|00001160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 09 09 09 0d 09 09 54 |========|=......T|
|00001180| 61 73 6b 50 72 6f 63 65 | 73 73 69 6e 67 28 29 3b |askProce|ssing();|
|00001190| 20 20 2f 2f 20 3c 3c 3c | 3c 3c 3c 3c 3c 3c 3c 20 |  // <<<|<<<<<<< |
|000011a0| 74 68 69 73 20 69 73 20 | 74 68 65 20 41 2f 52 4f |this is |the A/RO|
|000011b0| 53 45 20 74 61 73 6b 20 | 21 0d 2f 2f 3d 3d 3d 3d |SE task |!.//====|
|000011c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000011d0| 3d 3d 3d 3d 3d 09 09 09 | 0d 09 09 0d 09 7d 20 77 |=====...|.....} w|
|000011e0| 68 69 6c 65 20 28 20 74 | 72 75 65 20 29 3b 09 2f |hile ( t|rue );./|
|000011f0| 2f 20 6c 6f 6f 70 20 66 | 6f 72 65 76 65 72 3b 20 |/ loop f|orever; |
|00001200| 77 65 20 71 75 69 74 20 | 76 69 61 20 54 65 72 6d |we quit |via Term|
|00001210| 69 6e 61 74 65 2f 45 78 | 69 74 54 6f 53 68 65 6c |inate/Ex|itToShel|
|00001220| 6c 20 0d 7d 20 2f 2f 45 | 76 65 6e 74 4c 6f 6f 70 |l .} //E|ventLoop|
|00001230| 0d 0d 0d 23 70 72 61 67 | 6d 61 20 73 65 67 6d 65 |...#prag|ma segme|
|00001240| 6e 74 20 4d 61 69 6e 0d | 76 6f 69 64 20 44 6f 45 |nt Main.|void DoE|
|00001250| 76 65 6e 74 28 65 76 65 | 6e 74 29 0d 09 45 76 65 |vent(eve|nt)..Eve|
|00001260| 6e 74 52 65 63 6f 72 64 | 09 2a 65 76 65 6e 74 3b |ntRecord|.*event;|
|00001270| 0d 7b 0d 09 73 68 6f 72 | 74 09 09 70 61 72 74 2c |.{..shor|t..part,|
|00001280| 20 65 72 72 3b 0d 09 57 | 69 6e 64 6f 77 50 74 72 | err;..W|indowPtr|
|00001290| 09 77 69 6e 64 6f 77 3b | 0d 09 42 6f 6f 6c 65 61 |.window;|..Boolea|
|000012a0| 6e 09 09 68 69 74 3b 0d | 09 63 68 61 72 09 09 6b |n..hit;.|.char..k|
|000012b0| 65 79 3b 0d 09 50 6f 69 | 6e 74 09 09 61 50 6f 69 |ey;..Poi|nt..aPoi|
|000012c0| 6e 74 3b 0d 0d 09 73 77 | 69 74 63 68 20 28 20 65 |nt;...sw|itch ( e|
|000012d0| 76 65 6e 74 2d 3e 77 68 | 61 74 20 29 20 7b 0d 09 |vent->wh|at ) {..|
|000012e0| 09 63 61 73 65 20 6d 6f | 75 73 65 44 6f 77 6e 3a |.case mo|useDown:|
|000012f0| 0d 09 09 09 70 61 72 74 | 20 3d 20 46 69 6e 64 57 |....part| = FindW|
|00001300| 69 6e 64 6f 77 28 65 76 | 65 6e 74 2d 3e 77 68 65 |indow(ev|ent->whe|
|00001310| 72 65 2c 20 26 77 69 6e | 64 6f 77 29 3b 0d 09 09 |re, &win|dow);...|
|00001320| 09 73 77 69 74 63 68 20 | 28 20 70 61 72 74 20 29 |.switch |( part )|
|00001330| 20 7b 0d 09 09 09 09 63 | 61 73 65 20 69 6e 4d 65 | {.....c|ase inMe|
|00001340| 6e 75 42 61 72 3a 09 09 | 09 09 2f 2f 20 70 72 6f |nuBar:..|..// pro|
|00001350| 63 65 73 73 20 61 20 6d | 6f 75 73 65 20 6d 65 6e |cess a m|ouse men|
|00001360| 75 20 63 6f 6d 6d 61 6e | 64 20 28 69 66 20 61 6e |u comman|d (if an|
|00001370| 79 29 20 0d 09 09 09 09 | 09 41 64 6a 75 73 74 4d |y) .....|.AdjustM|
|00001380| 65 6e 75 73 28 29 3b 0d | 09 09 09 09 09 44 6f 4d |enus();.|.....DoM|
|00001390| 65 6e 75 43 6f 6d 6d 61 | 6e 64 28 4d 65 6e 75 53 |enuComma|nd(MenuS|
|000013a0| 65 6c 65 63 74 28 65 76 | 65 6e 74 2d 3e 77 68 65 |elect(ev|ent->whe|
|000013b0| 72 65 29 29 3b 0d 09 09 | 09 09 09 62 72 65 61 6b |re));...|...break|
|000013c0| 3b 0d 09 09 09 09 63 61 | 73 65 20 69 6e 53 79 73 |;.....ca|se inSys|
|000013d0| 57 69 6e 64 6f 77 3a 09 | 09 09 2f 2f 20 6c 65 74 |Window:.|..// let|
|000013e0| 20 74 68 65 20 73 79 73 | 74 65 6d 20 68 61 6e 64 | the sys|tem hand|
|000013f0| 6c 65 20 74 68 65 20 6d | 6f 75 73 65 44 6f 77 6e |le the m|ouseDown|
|00001400| 20 0d 09 09 09 09 09 53 | 79 73 74 65 6d 43 6c 69 | ......S|ystemCli|
|00001410| 63 6b 28 65 76 65 6e 74 | 2c 20 77 69 6e 64 6f 77 |ck(event|, window|
|00001420| 29 3b 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |);......|break;..|
|00001430| 09 09 09 63 61 73 65 20 | 69 6e 43 6f 6e 74 65 6e |...case |inConten|
|00001440| 74 3a 0d 09 09 09 09 09 | 69 66 20 28 20 77 69 6e |t:......|if ( win|
|00001450| 64 6f 77 20 21 3d 20 46 | 72 6f 6e 74 57 69 6e 64 |dow != F|rontWind|
|00001460| 6f 77 28 29 20 29 20 7b | 0d 09 09 09 09 09 09 53 |ow() ) {|.......S|
|00001470| 65 6c 65 63 74 57 69 6e | 64 6f 77 28 77 69 6e 64 |electWin|dow(wind|
|00001480| 6f 77 29 3b 0d 09 09 09 | 09 09 7d 20 65 6c 73 65 |ow);....|..} else|
|00001490| 0d 09 09 09 09 09 09 44 | 6f 43 6f 6e 74 65 6e 74 |.......D|oContent|
|000014a0| 43 6c 69 63 6b 28 77 69 | 6e 64 6f 77 29 3b 0d 09 |Click(wi|ndow);..|
|000014b0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 63 |....brea|k;.....c|
|000014c0| 61 73 65 20 69 6e 44 72 | 61 67 3a 09 09 09 09 2f |ase inDr|ag:..../|
|000014d0| 2f 20 70 61 73 73 20 73 | 63 72 65 65 6e 42 69 74 |/ pass s|creenBit|
|000014e0| 73 2e 62 6f 75 6e 64 73 | 20 74 6f 20 67 65 74 20 |s.bounds| to get |
|000014f0| 61 6c 6c 20 67 44 65 76 | 69 63 65 73 20 0d 09 09 |all gDev|ices ...|
|00001500| 09 09 09 44 72 61 67 57 | 69 6e 64 6f 77 28 77 69 |...DragW|indow(wi|
|00001510| 6e 64 6f 77 2c 20 65 76 | 65 6e 74 2d 3e 77 68 65 |ndow, ev|ent->whe|
|00001520| 72 65 2c 20 26 71 64 2e | 73 63 72 65 65 6e 42 69 |re, &qd.|screenBi|
|00001530| 74 73 2e 62 6f 75 6e 64 | 73 29 3b 0d 09 09 09 09 |ts.bound|s);.....|
|00001540| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 63 61 73 65 |.break;.|....case|
|00001550| 20 69 6e 47 72 6f 77 3a | 0d 09 09 09 09 09 62 72 | inGrow:|......br|
|00001560| 65 61 6b 3b 0d 09 09 09 | 09 63 61 73 65 20 69 6e |eak;....|.case in|
|00001570| 5a 6f 6f 6d 49 6e 3a 0d | 09 09 09 09 63 61 73 65 |ZoomIn:.|....case|
|00001580| 20 69 6e 5a 6f 6f 6d 4f | 75 74 3a 0d 09 09 09 09 | inZoomO|ut:.....|
|00001590| 09 68 69 74 20 3d 20 54 | 72 61 63 6b 42 6f 78 28 |.hit = T|rackBox(|
|000015a0| 77 69 6e 64 6f 77 2c 20 | 65 76 65 6e 74 2d 3e 77 |window, |event->w|
|000015b0| 68 65 72 65 2c 20 70 61 | 72 74 29 3b 0d 09 09 09 |here, pa|rt);....|
|000015c0| 09 09 69 66 20 28 20 68 | 69 74 20 29 20 7b 0d 09 |..if ( h|it ) {..|
|000015d0| 09 09 09 09 09 53 65 74 | 50 6f 72 74 28 77 69 6e |.....Set|Port(win|
|000015e0| 64 6f 77 29 3b 09 09 09 | 09 2f 2f 20 74 68 65 20 |dow);...|.// the |
|000015f0| 77 69 6e 64 6f 77 20 6d | 75 73 74 20 62 65 20 74 |window m|ust be t|
|00001600| 68 65 20 63 75 72 72 65 | 6e 74 20 70 6f 72 74 2e |he curre|nt port.|
|00001610| 2e 2e 20 0d 09 09 09 09 | 09 09 45 72 61 73 65 52 |.. .....|..EraseR|
|00001620| 65 63 74 28 26 77 69 6e | 64 6f 77 2d 3e 70 6f 72 |ect(&win|dow->por|
|00001630| 74 52 65 63 74 29 3b 09 | 2f 2f 20 62 65 63 61 75 |tRect);.|// becau|
|00001640| 73 65 20 6f 66 20 61 20 | 62 75 67 20 69 6e 20 5a |se of a |bug in Z|
|00001650| 6f 6f 6d 57 69 6e 64 6f | 77 20 0d 09 09 09 09 09 |oomWindo|w ......|
|00001660| 09 5a 6f 6f 6d 57 69 6e | 64 6f 77 28 77 69 6e 64 |.ZoomWin|dow(wind|
|00001670| 6f 77 2c 20 70 61 72 74 | 2c 20 74 72 75 65 29 3b |ow, part|, true);|
|00001680| 09 2f 2f 20 6e 6f 74 65 | 20 74 68 61 74 20 77 65 |.// note| that we|
|00001690| 20 69 6e 76 61 6c 69 64 | 61 74 65 20 61 6e 64 20 | invalid|ate and |
|000016a0| 65 72 61 73 65 2e 2e 2e | 20 0d 09 09 09 09 09 09 |erase...| .......|
|000016b0| 49 6e 76 61 6c 52 65 63 | 74 28 26 77 69 6e 64 6f |InvalRec|t(&windo|
|000016c0| 77 2d 3e 70 6f 72 74 52 | 65 63 74 29 3b 09 2f 2f |w->portR|ect);.//|
|000016d0| 20 74 6f 20 6d 61 6b 65 | 20 74 68 69 6e 67 73 20 | to make| things |
|000016e0| 6c 6f 6f 6b 20 62 65 74 | 74 65 72 20 6f 6e 2d 73 |look bet|ter on-s|
|000016f0| 63 72 65 65 6e 20 0d 09 | 09 09 09 09 7d 0d 09 09 |creen ..|....}...|
|00001700| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 7d 0d 09 |...break|;....}..|
|00001710| 09 09 62 72 65 61 6b 3b | 0d 09 09 63 61 73 65 20 |..break;|...case |
|00001720| 6b 65 79 44 6f 77 6e 3a | 0d 09 09 63 61 73 65 20 |keyDown:|...case |
|00001730| 61 75 74 6f 4b 65 79 3a | 09 09 09 09 09 09 2f 2f |autoKey:|......//|
|00001740| 20 63 68 65 63 6b 20 66 | 6f 72 20 6d 65 6e 75 6b | check f|or menuk|
|00001750| 65 79 20 65 71 75 69 76 | 61 6c 65 6e 74 73 20 0d |ey equiv|alents .|
|00001760| 09 09 09 6b 65 79 20 3d | 20 65 76 65 6e 74 2d 3e |...key =| event->|
|00001770| 6d 65 73 73 61 67 65 20 | 26 20 63 68 61 72 43 6f |message |& charCo|
|00001780| 64 65 4d 61 73 6b 3b 0d | 09 09 09 69 66 20 28 20 |deMask;.|...if ( |
|00001790| 65 76 65 6e 74 2d 3e 6d | 6f 64 69 66 69 65 72 73 |event->m|odifiers|
|000017a0| 20 26 20 63 6d 64 4b 65 | 79 20 29 09 09 09 2f 2f | & cmdKe|y )...//|
|000017b0| 20 43 6f 6d 6d 61 6e 64 | 20 6b 65 79 20 64 6f 77 | Command| key dow|
|000017c0| 6e 20 0d 09 09 09 09 69 | 66 20 28 20 65 76 65 6e |n .....i|f ( even|
|000017d0| 74 2d 3e 77 68 61 74 20 | 3d 3d 20 6b 65 79 44 6f |t->what |== keyDo|
|000017e0| 77 6e 20 29 20 7b 0d 09 | 09 09 09 09 41 64 6a 75 |wn ) {..|....Adju|
|000017f0| 73 74 4d 65 6e 75 73 28 | 29 3b 09 09 09 09 09 09 |stMenus(|);......|
|00001800| 2f 2f 20 65 6e 61 62 6c | 65 2f 64 69 73 61 62 6c |// enabl|e/disabl|
|00001810| 65 2f 63 68 65 63 6b 20 | 6d 65 6e 75 20 69 74 65 |e/check |menu ite|
|00001820| 6d 73 20 70 72 6f 70 65 | 72 6c 79 20 0d 09 09 09 |ms prope|rly ....|
|00001830| 09 09 44 6f 4d 65 6e 75 | 43 6f 6d 6d 61 6e 64 28 |..DoMenu|Command(|
|00001840| 4d 65 6e 75 4b 65 79 28 | 6b 65 79 29 29 3b 0d 09 |MenuKey(|key));..|
|00001850| 09 09 09 7d 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |...}....|break;..|
|00001860| 09 63 61 73 65 20 61 63 | 74 69 76 61 74 65 45 76 |.case ac|tivateEv|
|00001870| 74 3a 0d 09 09 09 44 6f | 41 63 74 69 76 61 74 65 |t:....Do|Activate|
|00001880| 28 28 57 69 6e 64 6f 77 | 50 74 72 29 20 65 76 65 |((Window|Ptr) eve|
|00001890| 6e 74 2d 3e 6d 65 73 73 | 61 67 65 2c 20 28 65 76 |nt->mess|age, (ev|
|000018a0| 65 6e 74 2d 3e 6d 6f 64 | 69 66 69 65 72 73 20 26 |ent->mod|ifiers &|
|000018b0| 20 61 63 74 69 76 65 46 | 6c 61 67 29 20 21 3d 20 | activeF|lag) != |
|000018c0| 30 29 3b 0d 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |0);....b|reak;...|
|000018d0| 63 61 73 65 20 75 70 64 | 61 74 65 45 76 74 3a 0d |case upd|ateEvt:.|
|000018e0| 09 09 09 44 6f 55 70 64 | 61 74 65 28 28 57 69 6e |...DoUpd|ate((Win|
|000018f0| 64 6f 77 50 74 72 29 20 | 65 76 65 6e 74 2d 3e 6d |dowPtr) |event->m|
|00001900| 65 73 73 61 67 65 29 3b | 0d 09 09 09 62 72 65 61 |essage);|....brea|
|00001910| 6b 3b 0d 09 09 63 61 73 | 65 20 64 69 73 6b 45 76 |k;...cas|e diskEv|
|00001920| 74 3a 0d 09 09 09 69 66 | 20 28 20 48 69 57 6f 72 |t:....if| ( HiWor|
|00001930| 64 28 65 76 65 6e 74 2d | 3e 6d 65 73 73 61 67 65 |d(event-|>message|
|00001940| 29 20 21 3d 20 6e 6f 45 | 72 72 20 29 20 7b 0d 09 |) != noE|rr ) {..|
|00001950| 09 09 09 53 65 74 50 74 | 28 26 61 50 6f 69 6e 74 |...SetPt|(&aPoint|
|00001960| 2c 20 6b 44 49 4c 65 66 | 74 2c 20 6b 44 49 54 6f |, kDILef|t, kDITo|
|00001970| 70 29 3b 0d 09 09 09 09 | 65 72 72 20 3d 20 44 49 |p);.....|err = DI|
|00001980| 42 61 64 4d 6f 75 6e 74 | 28 61 50 6f 69 6e 74 2c |BadMount|(aPoint,|
|00001990| 20 65 76 65 6e 74 2d 3e | 6d 65 73 73 61 67 65 29 | event->|message)|
|000019a0| 3b 0d 09 09 09 7d 0d 09 | 09 09 62 72 65 61 6b 3b |;....}..|..break;|
|000019b0| 0d 09 09 63 61 73 65 20 | 6b 4f 53 45 76 65 6e 74 |...case |kOSEvent|
|000019c0| 3a 0d 09 09 09 73 77 69 | 74 63 68 20 28 28 65 76 |:....swi|tch ((ev|
|000019d0| 65 6e 74 2d 3e 6d 65 73 | 73 61 67 65 20 3e 3e 20 |ent->mes|sage >> |
|000019e0| 32 34 29 20 26 20 30 78 | 30 46 46 29 20 7b 09 09 |24) & 0x|0FF) {..|
|000019f0| 2f 2f 20 68 69 67 68 20 | 62 79 74 65 20 6f 66 20 |// high |byte of |
|00001a00| 6d 65 73 73 61 67 65 20 | 0d 09 09 09 09 63 61 73 |message |.....cas|
|00001a10| 65 20 6b 53 75 73 70 65 | 6e 64 52 65 73 75 6d 65 |e kSuspe|ndResume|
|00001a20| 4d 65 73 73 61 67 65 3a | 09 09 2f 2f 20 73 75 73 |Message:|..// sus|
|00001a30| 70 65 6e 64 2f 72 65 73 | 75 6d 65 20 69 73 20 61 |pend/res|ume is a|
|00001a40| 6c 73 6f 20 61 6e 20 61 | 63 74 69 76 61 74 65 2f |lso an a|ctivate/|
|00001a50| 64 65 61 63 74 69 76 61 | 74 65 20 0d 09 09 09 09 |deactiva|te .....|
|00001a60| 09 67 49 6e 42 61 63 6b | 67 72 6f 75 6e 64 20 3d |.gInBack|ground =|
|00001a70| 20 28 65 76 65 6e 74 2d | 3e 6d 65 73 73 61 67 65 | (event-|>message|
|00001a80| 20 26 20 6b 52 65 73 75 | 6d 65 4d 61 73 6b 29 20 | & kResu|meMask) |
|00001a90| 3d 3d 20 30 3b 0d 09 09 | 09 09 09 44 6f 41 63 74 |== 0;...|...DoAct|
|00001aa0| 69 76 61 74 65 28 46 72 | 6f 6e 74 57 69 6e 64 6f |ivate(Fr|ontWindo|
|00001ab0| 77 28 29 2c 20 21 67 49 | 6e 42 61 63 6b 67 72 6f |w(), !gI|nBackgro|
|00001ac0| 75 6e 64 29 3b 0d 09 09 | 09 09 09 62 72 65 61 6b |und);...|...break|
|00001ad0| 3b 0d 09 09 09 7d 0d 09 | 09 09 62 72 65 61 6b 3b |;....}..|..break;|
|00001ae0| 0d 09 7d 0d 7d 20 2f 2f | 44 6f 45 76 65 6e 74 0d |..}.} //|DoEvent.|
|00001af0| 0d 0d 23 70 72 61 67 6d | 61 20 73 65 67 6d 65 6e |..#pragm|a segmen|
|00001b00| 74 20 4d 61 69 6e 0d 76 | 6f 69 64 20 44 6f 55 70 |t Main.v|oid DoUp|
|00001b10| 64 61 74 65 28 77 69 6e | 64 6f 77 29 0d 09 57 69 |date(win|dow)..Wi|
|00001b20| 6e 64 6f 77 50 74 72 09 | 77 69 6e 64 6f 77 3b 0d |ndowPtr.|window;.|
|00001b30| 7b 0d 09 69 66 20 28 20 | 49 73 41 70 70 57 69 6e |{..if ( |IsAppWin|
|00001b40| 64 6f 77 28 77 69 6e 64 | 6f 77 29 20 29 20 7b 0d |dow(wind|ow) ) {.|
|00001b50| 09 09 42 65 67 69 6e 55 | 70 64 61 74 65 28 77 69 |..BeginU|pdate(wi|
|00001b60| 6e 64 6f 77 29 3b 09 09 | 09 09 2f 2f 20 74 68 69 |ndow);..|..// thi|
|00001b70| 73 20 73 65 74 73 20 75 | 70 20 74 68 65 20 76 69 |s sets u|p the vi|
|00001b80| 73 52 67 6e 20 0d 09 09 | 69 66 20 28 20 21 20 45 |sRgn ...|if ( ! E|
|00001b90| 6d 70 74 79 52 67 6e 28 | 77 69 6e 64 6f 77 2d 3e |mptyRgn(|window->|
|00001ba0| 76 69 73 52 67 6e 29 20 | 29 09 2f 2f 20 64 72 61 |visRgn) |).// dra|
|00001bb0| 77 20 69 66 20 75 70 64 | 61 74 69 6e 67 20 6e 65 |w if upd|ating ne|
|00001bc0| 65 64 73 20 74 6f 20 62 | 65 20 64 6f 6e 65 20 0d |eds to b|e done .|
|00001bd0| 09 09 09 44 72 61 77 57 | 69 6e 64 6f 77 28 77 69 |...DrawW|indow(wi|
|00001be0| 6e 64 6f 77 29 3b 0d 09 | 09 45 6e 64 55 70 64 61 |ndow);..|.EndUpda|
|00001bf0| 74 65 28 77 69 6e 64 6f | 77 29 3b 0d 09 7d 0d 7d |te(windo|w);..}.}|
|00001c00| 20 2f 2f 44 6f 55 70 64 | 61 74 65 0d 0d 0d 23 70 | //DoUpd|ate...#p|
|00001c10| 72 61 67 6d 61 20 73 65 | 67 6d 65 6e 74 20 4d 61 |ragma se|gment Ma|
|00001c20| 69 6e 0d 76 6f 69 64 20 | 44 6f 41 63 74 69 76 61 |in.void |DoActiva|
|00001c30| 74 65 28 77 69 6e 64 6f | 77 2c 20 62 65 63 6f 6d |te(windo|w, becom|
|00001c40| 69 6e 67 41 63 74 69 76 | 65 29 0d 09 57 69 6e 64 |ingActiv|e)..Wind|
|00001c50| 6f 77 50 74 72 09 77 69 | 6e 64 6f 77 3b 0d 09 42 |owPtr.wi|ndow;..B|
|00001c60| 6f 6f 6c 65 61 6e 09 09 | 62 65 63 6f 6d 69 6e 67 |oolean..|becoming|
|00001c70| 41 63 74 69 76 65 3b 0d | 7b 0d 09 69 66 20 28 20 |Active;.|{..if ( |
|00001c80| 49 73 41 70 70 57 69 6e | 64 6f 77 28 77 69 6e 64 |IsAppWin|dow(wind|
|00001c90| 6f 77 29 20 29 20 7b 0d | 09 09 69 66 20 28 20 62 |ow) ) {.|..if ( b|
|00001ca0| 65 63 6f 6d 69 6e 67 41 | 63 74 69 76 65 20 29 0d |ecomingA|ctive ).|
|00001cb0| 09 09 09 3b 20 2f 2f 20 | 64 6f 20 77 68 61 74 65 |...; // |do whate|
|00001cc0| 76 65 72 20 79 6f 75 20 | 6e 65 65 64 20 74 6f 20 |ver you |need to |
|00001cd0| 61 74 20 61 63 74 69 76 | 61 74 69 6f 6e 20 0d 09 |at activ|ation ..|
|00001ce0| 09 65 6c 73 65 0d 09 09 | 09 3b 20 2f 2f 20 64 6f |.else...|.; // do|
|00001cf0| 20 77 68 61 74 65 76 65 | 72 20 79 6f 75 20 6e 65 | whateve|r you ne|
|00001d00| 65 64 20 74 6f 20 61 74 | 20 64 65 61 63 74 69 76 |ed to at| deactiv|
|00001d10| 61 74 69 6f 6e 20 0d 09 | 7d 0d 7d 20 2f 2f 44 6f |ation ..|}.} //Do|
|00001d20| 41 63 74 69 76 61 74 65 | 0d 0d 23 70 72 61 67 6d |Activate|..#pragm|
|00001d30| 61 20 73 65 67 6d 65 6e | 74 20 4d 61 69 6e 0d 76 |a segmen|t Main.v|
|00001d40| 6f 69 64 20 44 6f 43 6f | 6e 74 65 6e 74 43 6c 69 |oid DoCo|ntentCli|
|00001d50| 63 6b 28 77 69 6e 64 6f | 77 29 0d 09 57 69 6e 64 |ck(windo|w)..Wind|
|00001d60| 6f 77 50 74 72 09 77 69 | 6e 64 6f 77 3b 0d 7b 0d |owPtr.wi|ndow;.{.|
|00001d70| 23 70 72 61 67 6d 61 20 | 75 6e 75 73 65 64 20 28 |#pragma |unused (|
|00001d80| 77 69 6e 64 6f 77 29 0d | 20 20 2f 2f 20 64 6f 20 |window).|  // do |
|00001d90| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 64 6f 20 73 |you want| to do s|
|00001da0| 6f 6d 65 74 68 69 6e 67 | 20 68 65 72 65 20 3f 20 |omething| here ? |
|00001db0| 0d 7d 20 2f 2f 44 6f 43 | 6f 6e 74 65 6e 74 43 6c |.} //DoC|ontentCl|
|00001dc0| 69 63 6b 0d 0d 0d 23 70 | 72 61 67 6d 61 20 73 65 |ick...#p|ragma se|
|00001dd0| 67 6d 65 6e 74 20 4d 61 | 69 6e 0d 76 6f 69 64 20 |gment Ma|in.void |
|00001de0| 44 72 61 77 57 69 6e 64 | 6f 77 28 77 69 6e 64 6f |DrawWind|ow(windo|
|00001df0| 77 29 0d 09 57 69 6e 64 | 6f 77 50 74 72 09 77 69 |w)..Wind|owPtr.wi|
|00001e00| 6e 64 6f 77 3b 0d 7b 0d | 09 53 74 72 32 35 35 20 |ndow;.{.|.Str255 |
|00001e10| 09 73 3b 0d 09 52 65 63 | 74 09 63 6f 75 6e 74 52 |.s;..Rec|t.countR|
|00001e20| 65 63 74 3b 0d 09 47 72 | 61 66 50 74 72 09 73 61 |ect;..Gr|afPtr.sa|
|00001e30| 76 65 50 6f 72 74 3b 0d | 09 0d 09 47 65 74 50 6f |vePort;.|...GetPo|
|00001e40| 72 74 28 26 73 61 76 65 | 50 6f 72 74 29 3b 0d 09 |rt(&save|Port);..|
|00001e50| 0d 09 53 65 74 50 6f 72 | 74 28 77 69 6e 64 6f 77 |..SetPor|t(window|
|00001e60| 29 3b 0d 09 54 65 78 74 | 46 6f 6e 74 28 6d 6f 6e |);..Text|Font(mon|
|00001e70| 61 63 6f 29 3b 0d 09 54 | 65 78 74 53 69 7a 65 28 |aco);..T|extSize(|
|00001e80| 31 32 29 3b 0d 0d 09 53 | 65 74 52 65 63 74 28 26 |12);...S|etRect(&|
|00001e90| 63 6f 75 6e 74 52 65 63 | 74 2c 31 35 30 2c 38 30 |countRec|t,150,80|
|00001ea0| 2c 32 30 30 2c 31 32 35 | 29 3b 0d 09 45 72 61 73 |,200,125|);..Eras|
|00001eb0| 65 52 65 63 74 28 26 63 | 6f 75 6e 74 52 65 63 74 |eRect(&c|ountRect|
|00001ec0| 29 3b 09 2f 2f 20 72 65 | 64 75 63 65 20 74 68 65 |);.// re|duce the|
|00001ed0| 20 66 6c 69 63 6b 65 72 | 20 2e 2e 2e 20 0d 0d 09 | flicker| ... ...|
|00001ee0| 47 65 74 49 6e 64 53 74 | 72 69 6e 67 28 73 2c 20 |GetIndSt|ring(s, |
|00001ef0| 72 57 6e 64 53 74 72 69 | 6e 67 73 2c 20 31 29 3b |rWndStri|ngs, 1);|
|00001f00| 0d 09 4d 6f 76 65 54 6f | 28 32 30 2c 33 30 29 3b |..MoveTo|(20,30);|
|00001f10| 0d 09 44 72 61 77 53 74 | 72 69 6e 67 28 73 29 3b |..DrawSt|ring(s);|
|00001f20| 0d 09 4e 75 6d 54 6f 48 | 65 78 28 67 54 49 44 2c |..NumToH|ex(gTID,|
|00001f30| 20 38 2c 20 73 29 3b 0d | 09 44 72 61 77 53 74 72 | 8, s);.|.DrawStr|
|00001f40| 69 6e 67 28 73 29 3b 0d | 0d 09 47 65 74 49 6e 64 |ing(s);.|..GetInd|
|00001f50| 53 74 72 69 6e 67 28 73 | 2c 20 72 57 6e 64 53 74 |String(s|, rWndSt|
|00001f60| 72 69 6e 67 73 2c 20 32 | 29 3b 0d 09 4d 6f 76 65 |rings, 2|);..Move|
|00001f70| 54 6f 28 32 30 2c 35 30 | 29 3b 0d 09 44 72 61 77 |To(20,50|);..Draw|
|00001f80| 53 74 72 69 6e 67 28 73 | 29 3b 0d 0d 09 47 65 74 |String(s|);...Get|
|00001f90| 49 6e 64 53 74 72 69 6e | 67 28 73 2c 20 72 57 6e |IndStrin|g(s, rWn|
|00001fa0| 64 53 74 72 69 6e 67 73 | 2c 20 33 29 3b 0d 09 4d |dStrings|, 3);..M|
|00001fb0| 6f 76 65 54 6f 28 32 30 | 2c 31 30 30 29 3b 0d 09 |oveTo(20|,100);..|
|00001fc0| 44 72 61 77 53 74 72 69 | 6e 67 28 73 29 3b 0d 09 |DrawStri|ng(s);..|
|00001fd0| 4e 75 6d 54 6f 53 74 72 | 69 6e 67 28 67 52 65 63 |NumToStr|ing(gRec|
|00001fe0| 65 69 76 65 64 2c 20 73 | 29 3b 0d 09 44 72 61 77 |eived, s|);..Draw|
|00001ff0| 53 74 72 69 6e 67 28 73 | 29 3b 0d 0d 09 47 65 74 |String(s|);...Get|
|00002000| 49 6e 64 53 74 72 69 6e | 67 28 73 2c 20 72 57 6e |IndStrin|g(s, rWn|
|00002010| 64 53 74 72 69 6e 67 73 | 2c 20 34 29 3b 0d 09 4d |dStrings|, 4);..M|
|00002020| 6f 76 65 54 6f 28 32 30 | 2c 31 32 30 29 3b 0d 09 |oveTo(20|,120);..|
|00002030| 44 72 61 77 53 74 72 69 | 6e 67 28 73 29 3b 0d 09 |DrawStri|ng(s);..|
|00002040| 4e 75 6d 54 6f 53 74 72 | 69 6e 67 28 67 53 65 6e |NumToStr|ing(gSen|
|00002050| 74 2c 20 73 29 3b 0d 09 | 44 72 61 77 53 74 72 69 |t, s);..|DrawStri|
|00002060| 6e 67 28 73 29 3b 0d 09 | 0d 09 53 65 74 50 6f 72 |ng(s);..|..SetPor|
|00002070| 74 28 73 61 76 65 50 6f | 72 74 29 3b 0d 0d 7d 20 |t(savePo|rt);..} |
|00002080| 2f 2f 44 72 61 77 57 69 | 6e 64 6f 77 0d 0d 0d 23 |//DrawWi|ndow...#|
|00002090| 70 72 61 67 6d 61 20 73 | 65 67 6d 65 6e 74 20 4d |pragma s|egment M|
|000020a0| 61 69 6e 0d 76 6f 69 64 | 20 41 64 6a 75 73 74 4d |ain.void| AdjustM|
|000020b0| 65 6e 75 73 28 29 0d 7b | 0d 09 57 69 6e 64 6f 77 |enus().{|..Window|
|000020c0| 50 74 72 09 77 69 6e 64 | 6f 77 3b 0d 09 4d 65 6e |Ptr.wind|ow;..Men|
|000020d0| 75 48 61 6e 64 6c 65 09 | 6d 65 6e 75 3b 0d 0d 09 |uHandle.|menu;...|
|000020e0| 77 69 6e 64 6f 77 20 3d | 20 46 72 6f 6e 74 57 69 |window =| FrontWi|
|000020f0| 6e 64 6f 77 28 29 3b 0d | 0d 09 6d 65 6e 75 20 3d |ndow();.|..menu =|
|00002100| 20 47 65 74 4d 48 61 6e | 64 6c 65 28 6d 46 69 6c | GetMHan|dle(mFil|
|00002110| 65 29 3b 0d 09 69 66 20 | 28 20 49 73 44 41 57 69 |e);..if |( IsDAWi|
|00002120| 6e 64 6f 77 28 77 69 6e | 64 6f 77 29 20 29 09 09 |ndow(win|dow) )..|
|00002130| 2f 2f 20 77 65 20 63 61 | 6e 20 61 6c 6c 6f 77 20 |// we ca|n allow |
|00002140| 64 65 73 6b 20 61 63 63 | 65 73 73 6f 72 69 65 73 |desk acc|essories|
|00002150| 20 74 6f 20 62 65 20 63 | 6c 6f 73 65 64 20 66 72 | to be c|losed fr|
|00002160| 6f 6d 20 74 68 65 20 6d | 65 6e 75 20 0d 09 09 45 |om the m|enu ...E|
|00002170| 6e 61 62 6c 65 49 74 65 | 6d 28 6d 65 6e 75 2c 20 |nableIte|m(menu, |
|00002180| 69 43 6c 6f 73 65 29 3b | 0d 09 65 6c 73 65 0d 09 |iClose);|..else..|
|00002190| 09 44 69 73 61 62 6c 65 | 49 74 65 6d 28 6d 65 6e |.Disable|Item(men|
|000021a0| 75 2c 20 69 43 6c 6f 73 | 65 29 3b 09 2f 2f 20 62 |u, iClos|e);.// b|
|000021b0| 75 74 20 6e 6f 74 20 6f | 75 72 20 6f 6e 6c 79 20 |ut not o|ur only |
|000021c0| 77 69 6e 64 6f 77 20 0d | 0d 09 6d 65 6e 75 20 3d |window .|..menu =|
|000021d0| 20 47 65 74 4d 48 61 6e | 64 6c 65 28 6d 45 64 69 | GetMHan|dle(mEdi|
|000021e0| 74 29 3b 0d 09 69 66 20 | 28 20 49 73 44 41 57 69 |t);..if |( IsDAWi|
|000021f0| 6e 64 6f 77 28 77 69 6e | 64 6f 77 29 20 29 20 7b |ndow(win|dow) ) {|
|00002200| 09 09 2f 2f 20 61 20 64 | 65 73 6b 20 61 63 63 65 |..// a d|esk acce|
|00002210| 73 73 6f 72 79 20 6d 69 | 67 68 74 20 6e 65 65 64 |ssory mi|ght need|
|00002220| 20 74 68 65 20 65 64 69 | 74 20 6d 65 6e 75 c9 20 | the edi|t menu. |
|00002230| 0d 09 09 45 6e 61 62 6c | 65 49 74 65 6d 28 6d 65 |...Enabl|eItem(me|
|00002240| 6e 75 2c 20 69 55 6e 64 | 6f 29 3b 0d 09 09 45 6e |nu, iUnd|o);...En|
|00002250| 61 62 6c 65 49 74 65 6d | 28 6d 65 6e 75 2c 20 69 |ableItem|(menu, i|
|00002260| 43 75 74 29 3b 0d 09 09 | 45 6e 61 62 6c 65 49 74 |Cut);...|EnableIt|
|00002270| 65 6d 28 6d 65 6e 75 2c | 20 69 43 6f 70 79 29 3b |em(menu,| iCopy);|
|00002280| 0d 09 09 45 6e 61 62 6c | 65 49 74 65 6d 28 6d 65 |...Enabl|eItem(me|
|00002290| 6e 75 2c 20 69 43 6c 65 | 61 72 29 3b 0d 09 09 45 |nu, iCle|ar);...E|
|000022a0| 6e 61 62 6c 65 49 74 65 | 6d 28 6d 65 6e 75 2c 20 |nableIte|m(menu, |
|000022b0| 69 50 61 73 74 65 29 3b | 0d 09 7d 20 65 6c 73 65 |iPaste);|..} else|
|000022c0| 20 7b 09 09 09 09 09 09 | 2f 2f 20 c9 62 75 74 20 | {......|// .but |
|000022d0| 77 65 20 64 6f 6e d5 74 | 20 75 73 65 20 69 74 20 |we don.t| use it |
|000022e0| 0d 09 09 44 69 73 61 62 | 6c 65 49 74 65 6d 28 6d |...Disab|leItem(m|
|000022f0| 65 6e 75 2c 20 69 55 6e | 64 6f 29 3b 0d 09 09 44 |enu, iUn|do);...D|
|00002300| 69 73 61 62 6c 65 49 74 | 65 6d 28 6d 65 6e 75 2c |isableIt|em(menu,|
|00002310| 20 69 43 75 74 29 3b 0d | 09 09 44 69 73 61 62 6c | iCut);.|..Disabl|
|00002320| 65 49 74 65 6d 28 6d 65 | 6e 75 2c 20 69 43 6f 70 |eItem(me|nu, iCop|
|00002330| 79 29 3b 0d 09 09 44 69 | 73 61 62 6c 65 49 74 65 |y);...Di|sableIte|
|00002340| 6d 28 6d 65 6e 75 2c 20 | 69 43 6c 65 61 72 29 3b |m(menu, |iClear);|
|00002350| 0d 09 09 44 69 73 61 62 | 6c 65 49 74 65 6d 28 6d |...Disab|leItem(m|
|00002360| 65 6e 75 2c 20 69 50 61 | 73 74 65 29 3b 0d 09 7d |enu, iPa|ste);..}|
|00002370| 0d 09 6d 65 6e 75 20 3d | 20 47 65 74 4d 48 61 6e |..menu =| GetMHan|
|00002380| 64 6c 65 28 6d 53 6c 65 | 65 70 29 3b 0d 09 69 66 |dle(mSle|ep);..if|
|00002390| 20 28 67 53 6c 65 65 70 | 56 61 6c 20 3d 3d 20 30 | (gSleep|Val == 0|
|000023a0| 29 20 7b 0d 09 09 43 68 | 65 63 6b 49 74 65 6d 28 |) {...Ch|eckItem(|
|000023b0| 6d 65 6e 75 2c 69 4e 6f | 53 6c 65 65 70 2c 74 72 |menu,iNo|Sleep,tr|
|000023c0| 75 65 29 3b 0d 09 09 43 | 68 65 63 6b 49 74 65 6d |ue);...C|heckItem|
|000023d0| 28 6d 65 6e 75 2c 69 36 | 30 54 69 63 6b 73 2c 66 |(menu,i6|0Ticks,f|
|000023e0| 61 6c 73 65 29 3b 0d 09 | 7d 0d 09 65 6c 73 65 20 |alse);..|}..else |
|000023f0| 20 7b 0d 09 09 43 68 65 | 63 6b 49 74 65 6d 28 6d | {...Che|ckItem(m|
|00002400| 65 6e 75 2c 69 4e 6f 53 | 6c 65 65 70 2c 66 61 6c |enu,iNoS|leep,fal|
|00002410| 73 65 29 3b 0d 09 09 43 | 68 65 63 6b 49 74 65 6d |se);...C|heckItem|
|00002420| 28 6d 65 6e 75 2c 69 36 | 30 54 69 63 6b 73 2c 74 |(menu,i6|0Ticks,t|
|00002430| 72 75 65 29 3b 0d 09 7d | 0d 7d 20 2f 2f 41 64 6a |rue);..}|.} //Adj|
|00002440| 75 73 74 4d 65 6e 75 73 | 0d 0d 0d 23 70 72 61 67 |ustMenus|...#prag|
|00002450| 6d 61 20 73 65 67 6d 65 | 6e 74 20 4d 61 69 6e 0d |ma segme|nt Main.|
|00002460| 76 6f 69 64 20 44 6f 4d | 65 6e 75 43 6f 6d 6d 61 |void DoM|enuComma|
|00002470| 6e 64 28 6d 65 6e 75 52 | 65 73 75 6c 74 29 0d 09 |nd(menuR|esult)..|
|00002480| 6c 6f 6e 67 09 09 6d 65 | 6e 75 52 65 73 75 6c 74 |long..me|nuResult|
|00002490| 3b 0d 7b 0d 09 73 68 6f | 72 74 09 09 6d 65 6e 75 |;.{..sho|rt..menu|
|000024a0| 49 44 3b 09 09 09 09 2f | 2f 20 74 68 65 20 72 65 |ID;..../|/ the re|
|000024b0| 73 6f 75 72 63 65 20 49 | 44 20 6f 66 20 74 68 65 |source I|D of the|
|000024c0| 20 73 65 6c 65 63 74 65 | 64 20 6d 65 6e 75 20 0d | selecte|d menu .|
|000024d0| 09 73 68 6f 72 74 09 09 | 6d 65 6e 75 49 74 65 6d |.short..|menuItem|
|000024e0| 3b 09 09 09 2f 2f 20 74 | 68 65 20 69 74 65 6d 20 |;...// t|he item |
|000024f0| 6e 75 6d 62 65 72 20 6f | 66 20 74 68 65 20 73 65 |number o|f the se|
|00002500| 6c 65 63 74 65 64 20 6d | 65 6e 75 20 0d 09 73 68 |lected m|enu ..sh|
|00002510| 6f 72 74 09 09 69 74 65 | 6d 48 69 74 3b 0d 09 53 |ort..ite|mHit;..S|
|00002520| 74 72 32 35 35 09 09 64 | 61 4e 61 6d 65 3b 0d 09 |tr255..d|aName;..|
|00002530| 73 68 6f 72 74 09 09 64 | 61 52 65 66 4e 75 6d 3b |short..d|aRefNum;|
|00002540| 0d 09 42 6f 6f 6c 65 61 | 6e 09 09 68 61 6e 64 6c |..Boolea|n..handl|
|00002550| 65 64 42 79 44 41 3b 0d | 0d 09 6d 65 6e 75 49 44 |edByDA;.|..menuID|
|00002560| 20 3d 20 48 69 57 6f 72 | 64 28 6d 65 6e 75 52 65 | = HiWor|d(menuRe|
|00002570| 73 75 6c 74 29 3b 09 2f | 2f 20 75 73 65 20 6d 61 |sult);./|/ use ma|
|00002580| 63 72 6f 73 20 66 6f 72 | 20 65 66 66 69 63 69 65 |cros for| efficie|
|00002590| 6e 63 79 20 74 6f 2e 2e | 2e 20 0d 09 6d 65 6e 75 |ncy to..|. ..menu|
|000025a0| 49 74 65 6d 20 3d 20 4c | 6f 57 6f 72 64 28 6d 65 |Item = L|oWord(me|
|000025b0| 6e 75 52 65 73 75 6c 74 | 29 3b 09 2f 2f 20 67 65 |nuResult|);.// ge|
|000025c0| 74 20 6d 65 6e 75 20 69 | 74 65 6d 20 6e 75 6d 62 |t menu i|tem numb|
|000025d0| 65 72 20 61 6e 64 20 6d | 65 6e 75 20 6e 75 6d 62 |er and m|enu numb|
|000025e0| 65 72 20 0d 09 73 77 69 | 74 63 68 20 28 20 6d 65 |er ..swi|tch ( me|
|000025f0| 6e 75 49 44 20 29 20 7b | 0d 09 09 63 61 73 65 20 |nuID ) {|...case |
|00002600| 6d 41 70 70 6c 65 3a 0d | 09 09 09 73 77 69 74 63 |mApple:.|...switc|
|00002610| 68 20 28 20 6d 65 6e 75 | 49 74 65 6d 20 29 20 7b |h ( menu|Item ) {|
|00002620| 0d 09 09 09 09 63 61 73 | 65 20 69 41 62 6f 75 74 |.....cas|e iAbout|
|00002630| 3a 09 09 2f 2f 20 62 72 | 69 6e 67 20 75 70 20 61 |:..// br|ing up a|
|00002640| 6c 65 72 74 20 66 6f 72 | 20 41 62 6f 75 74 20 0d |lert for| About .|
|00002650| 09 09 09 09 09 69 74 65 | 6d 48 69 74 20 3d 20 41 |.....ite|mHit = A|
|00002660| 6c 65 72 74 28 72 41 62 | 6f 75 74 41 6c 65 72 74 |lert(rAb|outAlert|
|00002670| 2c 20 6e 69 6c 29 3b 0d | 09 09 09 09 09 62 72 65 |, nil);.|.....bre|
|00002680| 61 6b 3b 0d 09 09 09 09 | 64 65 66 61 75 6c 74 3a |ak;.....|default:|
|00002690| 09 09 09 2f 2f 20 61 6c | 6c 20 6e 6f 6e 2d 41 62 |...// al|l non-Ab|
|000026a0| 6f 75 74 20 69 74 65 6d | 73 20 69 6e 20 74 68 69 |out item|s in thi|
|000026b0| 73 20 6d 65 6e 75 20 61 | 72 65 20 44 41 73 20 0d |s menu a|re DAs .|
|000026c0| 09 09 09 09 09 2f 2f 20 | 74 79 70 65 20 53 74 72 |.....// |type Str|
|000026d0| 32 35 35 20 69 73 20 61 | 6e 20 61 72 72 61 79 20 |255 is a|n array |
|000026e0| 69 6e 20 4d 50 57 20 33 | 20 0d 09 09 09 09 09 47 |in MPW 3| ......G|
|000026f0| 65 74 49 74 65 6d 28 47 | 65 74 4d 48 61 6e 64 6c |etItem(G|etMHandl|
|00002700| 65 28 6d 41 70 70 6c 65 | 29 2c 20 6d 65 6e 75 49 |e(mApple|), menuI|
|00002710| 74 65 6d 2c 20 64 61 4e | 61 6d 65 29 3b 0d 09 09 |tem, daN|ame);...|
|00002720| 09 09 09 64 61 52 65 66 | 4e 75 6d 20 3d 20 4f 70 |...daRef|Num = Op|
|00002730| 65 6e 44 65 73 6b 41 63 | 63 28 64 61 4e 61 6d 65 |enDeskAc|c(daName|
|00002740| 29 3b 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |);......|break;..|
|00002750| 09 09 7d 0d 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |..}....b|reak;...|
|00002760| 63 61 73 65 20 6d 46 69 | 6c 65 3a 0d 09 09 09 73 |case mFi|le:....s|
|00002770| 77 69 74 63 68 20 28 20 | 6d 65 6e 75 49 74 65 6d |witch ( |menuItem|
|00002780| 20 29 20 7b 0d 09 09 09 | 09 63 61 73 65 20 69 43 | ) {....|.case iC|
|00002790| 6c 6f 73 65 3a 0d 09 09 | 09 09 09 44 6f 43 6c 6f |lose:...|...DoClo|
|000027a0| 73 65 57 69 6e 64 6f 77 | 28 46 72 6f 6e 74 57 69 |seWindow|(FrontWi|
|000027b0| 6e 64 6f 77 28 29 29 3b | 0d 09 09 09 09 09 62 72 |ndow());|......br|
|000027c0| 65 61 6b 3b 0d 09 09 09 | 09 63 61 73 65 20 69 51 |eak;....|.case iQ|
|000027d0| 75 69 74 3a 0d 09 09 09 | 09 09 54 65 72 6d 69 6e |uit:....|..Termin|
|000027e0| 61 74 65 28 29 3b 0d 09 | 09 09 09 09 62 72 65 61 |ate();..|....brea|
|000027f0| 6b 3b 0d 09 09 09 7d 0d | 09 09 09 62 72 65 61 6b |k;....}.|...break|
|00002800| 3b 0d 09 09 63 61 73 65 | 20 6d 45 64 69 74 3a 09 |;...case| mEdit:.|
|00002810| 09 09 09 09 2f 2f 20 63 | 61 6c 6c 20 53 79 73 74 |....// c|all Syst|
|00002820| 65 6d 45 64 69 74 20 66 | 6f 72 20 44 41 20 65 64 |emEdit f|or DA ed|
|00002830| 69 74 69 6e 67 20 26 20 | 4d 75 6c 74 69 46 69 6e |iting & |MultiFin|
|00002840| 64 65 72 20 0d 09 09 09 | 68 61 6e 64 6c 65 64 42 |der ....|handledB|
|00002850| 79 44 41 20 3d 20 53 79 | 73 74 65 6d 45 64 69 74 |yDA = Sy|stemEdit|
|00002860| 28 6d 65 6e 75 49 74 65 | 6d 2d 31 29 3b 09 2f 2f |(menuIte|m-1);.//|
|00002870| 20 73 69 6e 63 65 20 77 | 65 20 64 6f 6e d5 74 20 | since w|e don.t |
|00002880| 64 6f 20 61 6e 79 20 45 | 64 69 74 69 6e 67 20 0d |do any E|diting .|
|00002890| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 63 61 73 65 |...break|;...case|
|000028a0| 20 6d 53 6c 65 65 70 3a | 0d 09 09 09 73 77 69 74 | mSleep:|....swit|
|000028b0| 63 68 20 28 20 6d 65 6e | 75 49 74 65 6d 20 29 20 |ch ( men|uItem ) |
|000028c0| 7b 0d 09 09 09 09 63 61 | 73 65 20 69 4e 6f 53 6c |{.....ca|se iNoSl|
|000028d0| 65 65 70 3a 0d 09 09 09 | 09 09 67 53 6c 65 65 70 |eep:....|..gSleep|
|000028e0| 56 61 6c 20 3d 20 30 3b | 0d 09 09 09 09 09 62 72 |Val = 0;|......br|
|000028f0| 65 61 6b 3b 0d 09 09 09 | 09 63 61 73 65 20 69 36 |eak;....|.case i6|
|00002900| 30 54 69 63 6b 73 3a 0d | 09 09 09 09 09 67 53 6c |0Ticks:.|.....gSl|
|00002910| 65 65 70 56 61 6c 20 3d | 20 36 30 3b 0d 09 09 09 |eepVal =| 60;....|
|00002920| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 7d 0d 09 09 |..break;|....}...|
|00002930| 09 62 72 65 61 6b 3b 0d | 09 7d 0d 09 48 69 6c 69 |.break;.|.}..Hili|
|00002940| 74 65 4d 65 6e 75 28 30 | 29 3b 09 09 09 09 09 2f |teMenu(0|);...../|
|00002950| 2f 20 75 6e 68 69 67 68 | 6c 69 67 68 74 20 77 68 |/ unhigh|light wh|
|00002960| 61 74 20 4d 65 6e 75 53 | 65 6c 65 63 74 20 28 6f |at MenuS|elect (o|
|00002970| 72 20 4d 65 6e 75 4b 65 | 79 29 20 68 69 6c 69 74 |r MenuKe|y) hilit|
|00002980| 65 64 20 0d 7d 20 2f 2f | 44 6f 4d 65 6e 75 43 6f |ed .} //|DoMenuCo|
|00002990| 6d 6d 61 6e 64 0d 0d 0d | 0d 23 70 72 61 67 6d 61 |mmand...|.#pragma|
|000029a0| 20 73 65 67 6d 65 6e 74 | 20 4d 61 69 6e 0d 42 6f | segment| Main.Bo|
|000029b0| 6f 6c 65 61 6e 20 44 6f | 43 6c 6f 73 65 57 69 6e |olean Do|CloseWin|
|000029c0| 64 6f 77 28 77 69 6e 64 | 6f 77 29 0d 09 57 69 6e |dow(wind|ow)..Win|
|000029d0| 64 6f 77 50 74 72 09 77 | 69 6e 64 6f 77 3b 0d 7b |dowPtr.w|indow;.{|
|000029e0| 0d 09 69 66 20 28 20 49 | 73 44 41 57 69 6e 64 6f |..if ( I|sDAWindo|
|000029f0| 77 28 77 69 6e 64 6f 77 | 29 20 29 0d 09 09 43 6c |w(window|) )...Cl|
|00002a00| 6f 73 65 44 65 73 6b 41 | 63 63 28 28 28 57 69 6e |oseDeskA|cc(((Win|
|00002a10| 64 6f 77 50 65 65 6b 29 | 20 77 69 6e 64 6f 77 29 |dowPeek)| window)|
|00002a20| 2d 3e 77 69 6e 64 6f 77 | 4b 69 6e 64 29 3b 0d 09 |->window|Kind);..|
|00002a30| 65 6c 73 65 20 69 66 20 | 28 20 49 73 41 70 70 57 |else if |( IsAppW|
|00002a40| 69 6e 64 6f 77 28 77 69 | 6e 64 6f 77 29 20 29 0d |indow(wi|ndow) ).|
|00002a50| 09 09 43 6c 6f 73 65 57 | 69 6e 64 6f 77 28 77 69 |..CloseW|indow(wi|
|00002a60| 6e 64 6f 77 29 3b 0d 09 | 72 65 74 75 72 6e 20 74 |ndow);..|return t|
|00002a70| 72 75 65 3b 0d 7d 20 2f | 2f 44 6f 43 6c 6f 73 65 |rue;.} /|/DoClose|
|00002a80| 57 69 6e 64 6f 77 0d 0d | 0d 0d 23 70 72 61 67 6d |Window..|..#pragm|
|00002a90| 61 20 73 65 67 6d 65 6e | 74 20 4d 61 69 6e 0d 76 |a segmen|t Main.v|
|00002aa0| 6f 69 64 20 54 65 72 6d | 69 6e 61 74 65 28 29 0d |oid Term|inate().|
|00002ab0| 7b 0d 09 57 69 6e 64 6f | 77 50 74 72 09 61 57 69 |{..Windo|wPtr.aWi|
|00002ac0| 6e 64 6f 77 3b 0d 09 42 | 6f 6f 6c 65 61 6e 09 09 |ndow;..B|oolean..|
|00002ad0| 63 6c 6f 73 65 64 3b 0d | 09 0d 09 43 6c 6f 73 65 |closed;.|...Close|
|00002ae0| 51 75 65 75 65 28 29 3b | 09 09 2f 2f 20 43 6c 65 |Queue();|..// Cle|
|00002af0| 61 6e 20 75 70 20 69 6e | 74 65 72 61 63 74 69 6f |an up in|teractio|
|00002b00| 6e 20 77 69 74 68 20 41 | 2f 52 4f 53 45 20 50 72 |n with A|/ROSE Pr|
|00002b10| 65 70 20 0d 09 63 6c 6f | 73 65 64 20 3d 20 74 72 |ep ..clo|sed = tr|
|00002b20| 75 65 3b 0d 09 64 6f 20 | 7b 0d 09 09 61 57 69 6e |ue;..do |{...aWin|
|00002b30| 64 6f 77 20 3d 20 46 72 | 6f 6e 74 57 69 6e 64 6f |dow = Fr|ontWindo|
|00002b40| 77 28 29 3b 09 09 09 09 | 2f 2f 20 67 65 74 20 74 |w();....|// get t|
|00002b50| 68 65 20 63 75 72 72 65 | 6e 74 20 66 72 6f 6e 74 |he curre|nt front|
|00002b60| 20 77 69 6e 64 6f 77 20 | 0d 09 09 69 66 20 28 61 | window |...if (a|
|00002b70| 57 69 6e 64 6f 77 20 21 | 3d 20 6e 69 6c 29 0d 09 |Window !|= nil)..|
|00002b80| 09 09 63 6c 6f 73 65 64 | 20 3d 20 44 6f 43 6c 6f |..closed| = DoClo|
|00002b90| 73 65 57 69 6e 64 6f 77 | 28 61 57 69 6e 64 6f 77 |seWindow|(aWindow|
|00002ba0| 29 3b 09 2f 2f 20 63 6c | 6f 73 65 20 74 68 69 73 |);.// cl|ose this|
|00002bb0| 20 77 69 6e 64 6f 77 20 | 09 0d 09 7d 0d 09 77 68 | window |...}..wh|
|00002bc0| 69 6c 65 20 28 63 6c 6f | 73 65 64 20 26 26 20 28 |ile (clo|sed && (|
|00002bd0| 61 57 69 6e 64 6f 77 20 | 21 3d 20 6e 69 6c 29 29 |aWindow |!= nil))|
|00002be0| 3b 0d 09 69 66 20 28 63 | 6c 6f 73 65 64 29 0d 09 |;..if (c|losed)..|
|00002bf0| 09 45 78 69 74 54 6f 53 | 68 65 6c 6c 28 29 3b 09 |.ExitToS|hell();.|
|00002c00| 09 09 09 09 09 09 2f 2f | 20 65 78 69 74 20 69 66 |......//| exit if|
|00002c10| 20 6e 6f 20 63 61 6e 63 | 65 6c 6c 61 74 69 6f 6e | no canc|ellation|
|00002c20| 20 0d 7d 20 2f 2f 54 65 | 72 6d 69 6e 61 74 65 0d | .} //Te|rminate.|
|00002c30| 0d 0d 0d 23 70 72 61 67 | 6d 61 20 73 65 67 6d 65 |...#prag|ma segme|
|00002c40| 6e 74 20 49 6e 69 74 69 | 61 6c 69 7a 65 0d 76 6f |nt Initi|alize.vo|
|00002c50| 69 64 20 49 6e 69 74 69 | 61 6c 69 7a 65 28 29 0d |id Initi|alize().|
|00002c60| 7b 0d 09 48 61 6e 64 6c | 65 09 09 6d 65 6e 75 42 |{..Handl|e..menuB|
|00002c70| 61 72 3b 0d 09 50 74 72 | 09 09 09 77 69 6e 64 6f |ar;..Ptr|...windo|
|00002c80| 77 50 3b 0d 09 6c 6f 6e | 67 09 09 74 6f 74 61 6c |wP;..lon|g..total|
|00002c90| 2c 20 63 6f 6e 74 69 67 | 3b 0d 09 45 76 65 6e 74 |, contig|;..Event|
|00002ca0| 52 65 63 6f 72 64 20 65 | 76 65 6e 74 3b 0d 09 73 |Record e|vent;..s|
|00002cb0| 68 6f 72 74 09 09 63 6f | 75 6e 74 2c 20 72 65 73 |hort..co|unt, res|
|00002cc0| 75 6c 74 3b 0d 0d 09 67 | 49 6e 42 61 63 6b 67 72 |ult;...g|InBackgr|
|00002cd0| 6f 75 6e 64 20 3d 20 66 | 61 6c 73 65 3b 0d 09 67 |ound = f|alse;..g|
|00002ce0| 53 6c 65 65 70 56 61 6c | 20 3d 20 36 30 3b 0d 09 |SleepVal| = 60;..|
|00002cf0| 0d 09 49 6e 69 74 47 72 | 61 66 28 28 50 74 72 29 |..InitGr|af((Ptr)|
|00002d00| 20 26 71 64 2e 74 68 65 | 50 6f 72 74 29 3b 0d 09 | &qd.the|Port);..|
|00002d10| 49 6e 69 74 46 6f 6e 74 | 73 28 29 3b 0d 09 49 6e |InitFont|s();..In|
|00002d20| 69 74 57 69 6e 64 6f 77 | 73 28 29 3b 0d 09 49 6e |itWindow|s();..In|
|00002d30| 69 74 4d 65 6e 75 73 28 | 29 3b 0d 09 54 45 49 6e |itMenus(|);..TEIn|
|00002d40| 69 74 28 29 3b 0d 09 49 | 6e 69 74 44 69 61 6c 6f |it();..I|nitDialo|
|00002d50| 67 73 28 6e 69 6c 29 3b | 0d 09 49 6e 69 74 43 75 |gs(nil);|..InitCu|
|00002d60| 72 73 6f 72 28 29 3b 0d | 09 0d 09 2f 2f 09 54 68 |rsor();.|...//.Th|
|00002d70| 69 73 20 6e 65 78 74 20 | 62 69 74 20 6f 66 20 63 |is next |bit of c|
|00002d80| 6f 64 65 20 69 73 20 6e | 65 63 65 73 73 61 72 79 |ode is n|ecessary|
|00002d90| 20 74 6f 20 61 6c 6c 6f | 77 20 74 68 65 20 64 65 | to allo|w the de|
|00002da0| 66 61 75 6c 74 20 62 75 | 74 74 6f 6e 20 6f 66 20 |fault bu|tton of |
|00002db0| 6f 75 72 0d 09 2f 2f 09 | 61 6c 65 72 74 20 62 65 |our..//.|alert be|
|00002dc0| 20 6f 75 74 6c 69 6e 65 | 64 2e 20 0d 09 20 0d 09 | outline|d. .. ..|
|00002dd0| 66 6f 72 20 28 63 6f 75 | 6e 74 20 3d 20 31 3b 20 |for (cou|nt = 1; |
|00002de0| 63 6f 75 6e 74 20 3c 3d | 20 33 3b 20 63 6f 75 6e |count <=| 3; coun|
|00002df0| 74 2b 2b 29 0d 09 09 45 | 76 65 6e 74 41 76 61 69 |t++)...E|ventAvai|
|00002e00| 6c 28 65 76 65 72 79 45 | 76 65 6e 74 2c 20 26 65 |l(everyE|vent, &e|
|00002e10| 76 65 6e 74 29 3b 0d 09 | 0d 09 53 79 73 45 6e 76 |vent);..|..SysEnv|
|00002e20| 69 72 6f 6e 73 28 6b 53 | 79 73 45 6e 76 69 72 6f |irons(kS|ysEnviro|
|00002e30| 6e 73 56 65 72 73 69 6f | 6e 2c 20 26 67 4d 61 63 |nsVersio|n, &gMac|
|00002e40| 29 3b 0d 09 0d 09 69 66 | 20 28 67 4d 61 63 2e 6d |);....if| (gMac.m|
|00002e50| 61 63 68 69 6e 65 54 79 | 70 65 20 3c 20 30 29 0d |achineTy|pe < 0).|
|00002e60| 09 09 42 69 67 42 61 64 | 45 72 72 6f 72 28 65 57 |..BigBad|Error(eW|
|00002e70| 72 6f 6e 67 4d 61 63 68 | 69 6e 65 29 3b 0d 09 0d |rongMach|ine);...|
|00002e80| 09 69 66 20 28 21 20 54 | 72 61 70 41 76 61 69 6c |.if (! T|rapAvail|
|00002e90| 61 62 6c 65 28 5f 57 61 | 69 74 4e 65 78 74 45 76 |able(_Wa|itNextEv|
|00002ea0| 65 6e 74 2c 20 54 6f 6f | 6c 54 72 61 70 29 29 0d |ent, Too|lTrap)).|
|00002eb0| 09 09 42 69 67 42 61 64 | 45 72 72 6f 72 28 65 57 |..BigBad|Error(eW|
|00002ec0| 72 6f 6e 67 4d 61 63 68 | 69 6e 65 29 3b 0d 0d 09 |rongMach|ine);...|
|00002ed0| 69 66 20 28 28 6c 6f 6e | 67 29 20 47 65 74 41 70 |if ((lon|g) GetAp|
|00002ee0| 70 6c 4c 69 6d 69 74 28 | 29 20 2d 20 28 6c 6f 6e |plLimit(|) - (lon|
|00002ef0| 67 29 20 41 70 70 6c 69 | 63 5a 6f 6e 65 28 29 20 |g) Appli|cZone() |
|00002f00| 3c 20 6b 4d 69 6e 48 65 | 61 70 29 0d 09 09 42 69 |< kMinHe|ap)...Bi|
|00002f10| 67 42 61 64 45 72 72 6f | 72 28 65 53 6d 61 6c 6c |gBadErro|r(eSmall|
|00002f20| 53 69 7a 65 29 3b 0d 09 | 0d 09 2f 2f 20 5a 65 72 |Size);..|..// Zer|
|00002f30| 6f 53 63 72 61 70 28 29 | 3b 20 0d 0d 09 50 75 72 |oScrap()|; ...Pur|
|00002f40| 67 65 53 70 61 63 65 28 | 26 74 6f 74 61 6c 2c 20 |geSpace(|&total, |
|00002f50| 26 63 6f 6e 74 69 67 29 | 3b 0d 09 69 66 20 28 74 |&contig)|;..if (t|
|00002f60| 6f 74 61 6c 20 3c 20 6b | 4d 69 6e 53 70 61 63 65 |otal < k|MinSpace|
|00002f70| 29 0d 09 09 42 69 67 42 | 61 64 45 72 72 6f 72 28 |)...BigB|adError(|
|00002f80| 65 4e 6f 4d 65 6d 6f 72 | 79 29 3b 0d 0d 09 72 65 |eNoMemor|y);...re|
|00002f90| 73 75 6c 74 20 3d 20 41 | 52 4f 53 45 50 72 65 70 |sult = A|ROSEPrep|
|00002fa0| 28 29 3b 0d 09 69 66 20 | 28 72 65 73 75 6c 74 20 |();..if |(result |
|00002fb0| 21 3d 20 6e 6f 45 72 72 | 29 0d 09 09 42 69 67 42 |!= noErr|)...BigB|
|00002fc0| 61 64 45 72 72 6f 72 28 | 72 65 73 75 6c 74 29 3b |adError(|result);|
|00002fd0| 0d 0d 09 77 69 6e 64 6f | 77 50 20 3d 20 4e 65 77 |...windo|wP = New|
|00002fe0| 50 74 72 28 73 69 7a 65 | 6f 66 28 57 69 6e 64 6f |Ptr(size|of(Windo|
|00002ff0| 77 52 65 63 6f 72 64 29 | 29 3b 0d 09 69 66 20 28 |wRecord)|);..if (|
|00003000| 20 77 69 6e 64 6f 77 50 | 20 3d 3d 20 6e 69 6c 20 | windowP| == nil |
|00003010| 29 0d 09 09 42 69 67 42 | 61 64 45 72 72 6f 72 28 |)...BigB|adError(|
|00003020| 65 4e 6f 57 69 6e 64 6f | 77 29 3b 0d 0d 09 67 4d |eNoWindo|w);...gM|
|00003030| 79 57 69 6e 64 6f 77 20 | 3d 20 47 65 74 4e 65 77 |yWindow |= GetNew|
|00003040| 57 69 6e 64 6f 77 28 72 | 57 69 6e 64 6f 77 2c 20 |Window(r|Window, |
|00003050| 77 69 6e 64 6f 77 50 2c | 20 28 57 69 6e 64 6f 77 |windowP,| (Window|
|00003060| 50 74 72 29 20 2d 31 29 | 3b 0d 09 69 66 20 28 20 |Ptr) -1)|;..if ( |
|00003070| 67 4d 79 57 69 6e 64 6f | 77 20 3d 3d 20 6e 69 6c |gMyWindo|w == nil|
|00003080| 20 29 0d 09 09 42 69 67 | 42 61 64 45 72 72 6f 72 | )...Big|BadError|
|00003090| 28 65 4e 6f 57 69 6e 64 | 6f 77 29 3b 0d 0d 09 6d |(eNoWind|ow);...m|
|000030a0| 65 6e 75 42 61 72 20 3d | 20 47 65 74 4e 65 77 4d |enuBar =| GetNewM|
|000030b0| 42 61 72 28 72 4d 65 6e | 75 42 61 72 29 3b 09 09 |Bar(rMen|uBar);..|
|000030c0| 09 2f 2f 20 72 65 61 64 | 20 6d 65 6e 75 73 20 69 |.// read| menus i|
|000030d0| 6e 74 6f 20 6d 65 6e 75 | 20 62 61 72 20 0d 09 69 |nto menu| bar ..i|
|000030e0| 66 20 28 20 6d 65 6e 75 | 42 61 72 20 3d 3d 20 6e |f ( menu|Bar == n|
|000030f0| 69 6c 20 29 0d 09 09 42 | 69 67 42 61 64 45 72 72 |il )...B|igBadErr|
|00003100| 6f 72 28 65 4e 6f 4d 65 | 6d 6f 72 79 29 3b 0d 09 |or(eNoMe|mory);..|
|00003110| 53 65 74 4d 65 6e 75 42 | 61 72 28 6d 65 6e 75 42 |SetMenuB|ar(menuB|
|00003120| 61 72 29 3b 09 09 09 09 | 09 2f 2f 20 69 6e 73 74 |ar);....|.// inst|
|00003130| 61 6c 6c 20 6d 65 6e 75 | 73 20 0d 09 44 69 73 70 |all menu|s ..Disp|
|00003140| 6f 73 48 61 6e 64 6c 65 | 28 6d 65 6e 75 42 61 72 |osHandle|(menuBar|
|00003150| 29 3b 0d 09 41 64 64 52 | 65 73 4d 65 6e 75 28 47 |);..AddR|esMenu(G|
|00003160| 65 74 4d 48 61 6e 64 6c | 65 28 6d 41 70 70 6c 65 |etMHandl|e(mApple|
|00003170| 29 2c 20 27 44 52 56 52 | 27 29 3b 09 2f 2f 20 61 |), 'DRVR|');.// a|
|00003180| 64 64 20 44 41 20 6e 61 | 6d 65 73 20 74 6f 20 41 |dd DA na|mes to A|
|00003190| 70 70 6c 65 20 6d 65 6e | 75 20 0d 09 44 72 61 77 |pple men|u ..Draw|
|000031a0| 4d 65 6e 75 42 61 72 28 | 29 3b 0d 09 0d 7d 20 2f |MenuBar(|);...} /|
|000031b0| 2f 49 6e 69 74 69 61 6c | 69 7a 65 0d 0d 0d 23 70 |/Initial|ize...#p|
|000031c0| 72 61 67 6d 61 20 73 65 | 67 6d 65 6e 74 20 4d 61 |ragma se|gment Ma|
|000031d0| 69 6e 0d 42 6f 6f 6c 65 | 61 6e 20 49 73 41 70 70 |in.Boole|an IsApp|
|000031e0| 57 69 6e 64 6f 77 28 77 | 69 6e 64 6f 77 29 0d 09 |Window(w|indow)..|
|000031f0| 57 69 6e 64 6f 77 50 74 | 72 09 77 69 6e 64 6f 77 |WindowPt|r.window|
|00003200| 3b 0d 7b 0d 09 73 68 6f | 72 74 09 09 77 69 6e 64 |;.{..sho|rt..wind|
|00003210| 6f 77 4b 69 6e 64 3b 0d | 0d 09 69 66 20 28 20 77 |owKind;.|..if ( w|
|00003220| 69 6e 64 6f 77 20 3d 3d | 20 6e 69 6c 20 29 0d 09 |indow ==| nil )..|
|00003230| 09 72 65 74 75 72 6e 20 | 66 61 6c 73 65 3b 0d 09 |.return |false;..|
|00003240| 65 6c 73 65 20 7b 09 2f | 2f 20 61 70 70 6c 69 63 |else {./|/ applic|
|00003250| 61 74 69 6f 6e 20 77 69 | 6e 64 6f 77 73 20 68 61 |ation wi|ndows ha|
|00003260| 76 65 20 77 69 6e 64 6f | 77 4b 69 6e 64 73 20 3d |ve windo|wKinds =|
|00003270| 20 75 73 65 72 4b 69 6e | 64 20 28 38 29 20 0d 09 | userKin|d (8) ..|
|00003280| 09 77 69 6e 64 6f 77 4b | 69 6e 64 20 3d 20 28 28 |.windowK|ind = ((|
|00003290| 57 69 6e 64 6f 77 50 65 | 65 6b 29 20 77 69 6e 64 |WindowPe|ek) wind|
|000032a0| 6f 77 29 2d 3e 77 69 6e | 64 6f 77 4b 69 6e 64 3b |ow)->win|dowKind;|
|000032b0| 0d 09 09 72 65 74 75 72 | 6e 20 28 77 69 6e 64 6f |...retur|n (windo|
|000032c0| 77 4b 69 6e 64 20 3d 20 | 75 73 65 72 4b 69 6e 64 |wKind = |userKind|
|000032d0| 29 3b 0d 09 7d 0d 7d 20 | 2f 2f 49 73 41 70 70 57 |);..}.} |//IsAppW|
|000032e0| 69 6e 64 6f 77 0d 0d 0d | 23 70 72 61 67 6d 61 20 |indow...|#pragma |
|000032f0| 73 65 67 6d 65 6e 74 20 | 4d 61 69 6e 0d 42 6f 6f |segment |Main.Boo|
|00003300| 6c 65 61 6e 20 49 73 44 | 41 57 69 6e 64 6f 77 28 |lean IsD|AWindow(|
|00003310| 77 69 6e 64 6f 77 29 0d | 09 57 69 6e 64 6f 77 50 |window).|.WindowP|
|00003320| 74 72 09 77 69 6e 64 6f | 77 3b 0d 7b 0d 09 69 66 |tr.windo|w;.{..if|
|00003330| 20 28 20 77 69 6e 64 6f | 77 20 3d 3d 20 6e 69 6c | ( windo|w == nil|
|00003340| 20 29 0d 09 09 72 65 74 | 75 72 6e 20 66 61 6c 73 | )...ret|urn fals|
|00003350| 65 3b 0d 09 65 6c 73 65 | 09 2f 2f 20 44 41 20 77 |e;..else|.// DA w|
|00003360| 69 6e 64 6f 77 73 20 68 | 61 76 65 20 6e 65 67 61 |indows h|ave nega|
|00003370| 74 69 76 65 20 77 69 6e | 64 6f 77 4b 69 6e 64 73 |tive win|dowKinds|
|00003380| 20 0d 09 09 72 65 74 75 | 72 6e 20 28 28 57 69 6e | ...retu|rn ((Win|
|00003390| 64 6f 77 50 65 65 6b 29 | 20 77 69 6e 64 6f 77 29 |dowPeek)| window)|
|000033a0| 2d 3e 77 69 6e 64 6f 77 | 4b 69 6e 64 20 3c 20 30 |->window|Kind < 0|
|000033b0| 3b 0d 7d 20 2f 2f 49 73 | 44 41 57 69 6e 64 6f 77 |;.} //Is|DAWindow|
|000033c0| 0d 0d 0d 23 70 72 61 67 | 6d 61 20 73 65 67 6d 65 |...#prag|ma segme|
|000033d0| 6e 74 20 49 6e 69 74 69 | 61 6c 69 7a 65 0d 42 6f |nt Initi|alize.Bo|
|000033e0| 6f 6c 65 61 6e 20 54 72 | 61 70 41 76 61 69 6c 61 |olean Tr|apAvaila|
|000033f0| 62 6c 65 28 74 4e 75 6d | 62 65 72 2c 74 54 79 70 |ble(tNum|ber,tTyp|
|00003400| 65 29 0d 09 73 68 6f 72 | 74 09 09 74 4e 75 6d 62 |e)..shor|t..tNumb|
|00003410| 65 72 3b 0d 09 54 72 61 | 70 54 79 70 65 09 74 54 |er;..Tra|pType.tT|
|00003420| 79 70 65 3b 0d 7b 0d 09 | 69 66 20 28 20 28 20 74 |ype;.{..|if ( ( t|
|00003430| 54 79 70 65 20 3d 3d 20 | 54 6f 6f 6c 54 72 61 70 |Type == |ToolTrap|
|00003440| 20 29 20 26 26 0d 09 09 | 28 20 67 4d 61 63 2e 6d | ) &&...|( gMac.m|
|00003450| 61 63 68 69 6e 65 54 79 | 70 65 20 3e 20 65 6e 76 |achineTy|pe > env|
|00003460| 4d 61 63 68 55 6e 6b 6e | 6f 77 6e 20 29 20 26 26 |MachUnkn|own ) &&|
|00003470| 0d 09 09 28 20 67 4d 61 | 63 2e 6d 61 63 68 69 6e |...( gMa|c.machin|
|00003480| 65 54 79 70 65 20 3c 20 | 65 6e 76 4d 61 63 49 49 |eType < |envMacII|
|00003490| 20 29 20 29 20 7b 09 09 | 2f 2f 20 69 74 27 73 20 | ) ) {..|// it's |
|000034a0| 61 20 35 31 32 4b 45 2c | 20 50 6c 75 73 2c 20 6f |a 512KE,| Plus, o|
|000034b0| 72 20 53 45 20 0d 09 09 | 74 4e 75 6d 62 65 72 20 |r SE ...|tNumber |
|000034c0| 3d 20 74 4e 75 6d 62 65 | 72 20 26 20 30 78 30 33 |= tNumbe|r & 0x03|
|000034d0| 46 46 3b 0d 09 09 69 66 | 20 28 20 74 4e 75 6d 62 |FF;...if| ( tNumb|
|000034e0| 65 72 20 3e 20 30 78 30 | 31 46 46 20 29 09 09 09 |er > 0x0|1FF )...|
|000034f0| 09 09 2f 2f 20 77 68 69 | 63 68 20 6d 65 61 6e 73 |..// whi|ch means|
|00003500| 20 74 68 65 20 74 6f 6f | 6c 20 74 72 61 70 73 20 | the too|l traps |
|00003510| 0d 09 09 09 74 4e 75 6d | 62 65 72 20 3d 20 5f 55 |....tNum|ber = _U|
|00003520| 6e 69 6d 70 6c 65 6d 65 | 6e 74 65 64 3b 09 09 09 |nimpleme|nted;...|
|00003530| 2f 2f 20 6f 6e 6c 79 20 | 67 6f 20 74 6f 20 30 78 |// only |go to 0x|
|00003540| 30 31 46 46 20 0d 09 7d | 0d 09 72 65 74 75 72 6e |01FF ..}|..return|
|00003550| 20 4e 47 65 74 54 72 61 | 70 41 64 64 72 65 73 73 | NGetTra|pAddress|
|00003560| 28 74 4e 75 6d 62 65 72 | 2c 20 74 54 79 70 65 29 |(tNumber|, tType)|
|00003570| 20 21 3d 20 47 65 74 54 | 72 61 70 41 64 64 72 65 | != GetT|rapAddre|
|00003580| 73 73 28 5f 55 6e 69 6d | 70 6c 65 6d 65 6e 74 65 |ss(_Unim|plemente|
|00003590| 64 29 3b 0d 7d 20 2f 2f | 54 72 61 70 41 76 61 69 |d);.} //|TrapAvai|
|000035a0| 6c 61 62 6c 65 0d 0d 0d | 23 70 72 61 67 6d 61 20 |lable...|#pragma |
|000035b0| 73 65 67 6d 65 6e 74 20 | 4d 61 69 6e 0d 76 6f 69 |segment |Main.voi|
|000035c0| 64 20 41 6c 65 72 74 55 | 73 65 72 28 20 73 68 6f |d AlertU|ser( sho|
|000035d0| 72 74 20 65 72 72 6f 72 | 29 0d 7b 0d 09 73 68 6f |rt error|).{..sho|
|000035e0| 72 74 09 09 69 74 65 6d | 48 69 74 3b 0d 09 53 74 |rt..item|Hit;..St|
|000035f0| 72 32 35 35 09 09 65 72 | 72 4d 73 67 3b 0d 0d 09 |r255..er|rMsg;...|
|00003600| 53 65 74 43 75 72 73 6f | 72 28 26 71 64 2e 61 72 |SetCurso|r(&qd.ar|
|00003610| 72 6f 77 29 3b 0d 09 69 | 66 20 28 28 65 72 72 6f |row);..i|f ((erro|
|00003620| 72 3e 30 29 26 26 28 65 | 72 72 6f 72 3c 3d 6b 4c |r>0)&&(e|rror<=kL|
|00003630| 61 73 74 45 72 72 53 74 | 72 29 29 20 7b 0d 09 09 |astErrSt|r)) {...|
|00003640| 47 65 74 49 6e 64 53 74 | 72 69 6e 67 28 65 72 72 |GetIndSt|ring(err|
|00003650| 4d 73 67 2c 20 72 45 72 | 72 53 74 72 69 6e 67 73 |Msg, rEr|rStrings|
|00003660| 2c 20 65 72 72 6f 72 29 | 3b 0d 09 09 50 61 72 61 |, error)|;...Para|
|00003670| 6d 54 65 78 74 28 65 72 | 72 4d 73 67 2c 20 22 22 |mText(er|rMsg, ""|
|00003680| 2c 20 22 22 2c 20 22 22 | 29 3b 0d 09 7d 0d 09 65 |, "", ""|);..}..e|
|00003690| 6c 73 65 20 7b 0d 09 09 | 4e 75 6d 54 6f 53 74 72 |lse {...|NumToStr|
|000036a0| 69 6e 67 28 65 72 72 6f | 72 2c 20 26 65 72 72 4d |ing(erro|r, &errM|
|000036b0| 73 67 29 3b 0d 09 09 50 | 61 72 61 6d 54 65 78 74 |sg);...P|aramText|
|000036c0| 28 22 5c 70 55 6e 6b 6e | 6f 77 6e 20 65 72 72 6f |("\pUnkn|own erro|
|000036d0| 72 22 2c 20 65 72 72 4d | 73 67 2c 20 22 22 2c 20 |r", errM|sg, "", |
|000036e0| 22 22 29 3b 0d 09 7d 0d | 09 09 0d 09 69 74 65 6d |"");..}.|....item|
|000036f0| 48 69 74 20 3d 20 41 6c | 65 72 74 28 72 55 73 65 |Hit = Al|ert(rUse|
|00003700| 72 41 6c 65 72 74 2c 20 | 6e 69 6c 29 3b 0d 7d 20 |rAlert, |nil);.} |
|00003710| 2f 2f 20 41 6c 65 72 74 | 55 73 65 72 20 0d 0d 23 |// Alert|User ..#|
|00003720| 70 72 61 67 6d 61 20 73 | 65 67 6d 65 6e 74 20 4d |pragma s|egment M|
|00003730| 61 69 6e 0d 76 6f 69 64 | 20 42 69 67 42 61 64 45 |ain.void| BigBadE|
|00003740| 72 72 6f 72 28 20 73 68 | 6f 72 74 20 65 72 72 6f |rror( sh|ort erro|
|00003750| 72 29 0d 7b 0d 09 41 6c | 65 72 74 55 73 65 72 28 |r).{..Al|ertUser(|
|00003760| 65 72 72 6f 72 29 3b 0d | 09 69 66 20 28 67 54 49 |error);.|.if (gTI|
|00003770| 44 3e 30 29 0d 09 09 43 | 6c 6f 73 65 51 75 65 75 |D>0)...C|loseQueu|
|00003780| 65 28 29 3b 0d 09 45 78 | 69 74 54 6f 53 68 65 6c |e();..Ex|itToShel|
|00003790| 6c 28 29 3b 0d 7d 0d 0d | 0d 23 70 72 61 67 6d 61 |l();.}..|.#pragma|
|000037a0| 20 73 65 67 6d 65 6e 74 | 20 4d 61 69 6e 0d 76 6f | segment| Main.vo|
|000037b0| 69 64 20 4e 75 6d 54 6f | 48 65 78 28 20 6c 6f 6e |id NumTo|Hex( lon|
|000037c0| 67 20 6e 2c 20 73 68 6f | 72 74 20 64 2c 20 63 68 |g n, sho|rt d, ch|
|000037d0| 61 72 20 2a 73 29 20 20 | 20 2f 2f 20 49 20 68 61 |ar *s)  | // I ha|
|000037e0| 74 65 20 74 68 69 73 20 | 40 23 25 40 20 21 0d 09 |te this |@#%@ !..|
|000037f0| 2f 2f 20 73 20 6d 75 73 | 74 20 70 6f 69 6e 74 20 |// s mus|t point |
|00003800| 74 6f 20 61 74 20 6c 65 | 61 73 74 20 64 2b 31 20 |to at le|ast d+1 |
|00003810| 66 72 65 65 20 62 79 74 | 65 73 20 2d 20 72 65 74 |free byt|es - ret|
|00003820| 75 72 6e 73 20 50 61 73 | 63 61 6c 20 53 74 72 69 |urns Pas|cal Stri|
|00003830| 6e 67 20 6f 66 20 6c 65 | 6e 67 74 68 20 64 0d 09 |ng of le|ngth d..|
|00003840| 2f 2f 20 72 65 71 75 69 | 72 65 73 20 64 20 3e 20 |// requi|res d > |
|00003850| 30 0d 7b 0d 09 73 68 6f | 72 74 20 63 3b 0d 09 0d |0.{..sho|rt c;...|
|00003860| 09 73 5b 30 5d 20 3d 20 | 64 3b 0d 09 64 6f 20 7b |.s[0] = |d;..do {|
|00003870| 0d 09 09 63 20 3d 20 20 | 28 6e 20 26 20 30 78 30 |...c =  |(n & 0x0|
|00003880| 46 29 20 2b 20 34 38 3b | 09 2f 2f 20 6e 6f 74 20 |F) + 48;|.// not |
|00003890| 73 6f 20 53 63 72 69 70 | 74 20 4d 61 6e 61 67 65 |so Scrip|t Manage|
|000038a0| 72 20 63 6f 6d 70 61 74 | 69 62 6c 65 0d 09 09 09 |r compat|ible....|
|000038b0| 09 09 09 09 09 2f 2f 20 | 28 61 73 20 75 73 75 61 |.....// |(as usua|
|000038c0| 6c 20 61 74 20 74 68 69 | 73 20 70 72 6f 67 72 61 |l at thi|s progra|
|000038d0| 6d 6d 69 6e 67 20 6c 65 | 76 65 6c 2e 2e 2e 29 0d |mming le|vel...).|
|000038e0| 09 09 69 66 20 28 63 3e | 35 37 29 0d 09 09 09 63 |..if (c>|57)....c|
|000038f0| 20 3d 20 63 2b 37 3b 0d | 09 09 73 5b 64 2d 2d 5d | = c+7;.|..s[d--]|
|00003900| 20 3d 20 28 63 68 61 72 | 29 20 63 3b 0d 09 09 6e | = (char|) c;...n|
|00003910| 20 3d 20 6e 3e 3e 34 3b | 0d 09 7d 20 77 68 69 6c | = n>>4;|..} whil|
|00003920| 65 20 28 64 20 3e 20 30 | 29 3b 0d 7d 0d 0d 23 70 |e (d > 0|);.}..#p|
|00003930| 72 61 67 6d 61 20 73 65 | 67 6d 65 6e 74 20 4d 61 |ragma se|gment Ma|
|00003940| 69 6e 0d 76 6f 69 64 20 | 53 74 72 69 6e 67 43 6f |in.void |StringCo|
|00003950| 70 79 28 63 68 61 72 20 | 2a 73 2c 20 63 68 61 72 |py(char |*s, char|
|00003960| 20 2a 74 29 0d 7b 0d 09 | 73 68 6f 72 74 20 6e 3d | *t).{..|short n=|
|00003970| 20 28 2a 74 2b 2b 20 3d | 20 2a 73 2b 2b 29 3b 0d | (*t++ =| *s++);.|
|00003980| 09 77 68 69 6c 65 20 28 | 6e 2d 2d 20 3e 30 29 0d |.while (|n-- >0).|
|00003990| 09 09 2a 74 2b 2b 20 3d | 20 2a 73 2b 2b 3b 0d 7d |..*t++ =| *s++;.}|
|000039a0| 0d 0d 23 70 72 61 67 6d | 61 20 73 65 67 6d 65 6e |..#pragm|a segmen|
|000039b0| 74 20 49 6e 69 74 69 61 | 6c 69 7a 65 0d 73 68 6f |t Initia|lize.sho|
|000039c0| 72 74 20 41 52 4f 53 45 | 50 72 65 70 28 29 0d 7b |rt AROSE|Prep().{|
|000039d0| 0d 09 53 74 72 69 6e 67 | 48 61 6e 64 6c 65 20 73 |..String|Handle s|
|000039e0| 68 3b 0d 09 53 74 72 32 | 35 35 20 74 61 73 6b 4e |h;..Str2|55 taskN|
|000039f0| 61 6d 65 20 3d 20 22 3f | 22 2c 20 74 61 73 6b 54 |ame = "?|", taskT|
|00003a00| 79 70 65 20 3d 20 22 3f | 22 3b 0d 0d 09 73 68 20 |ype = "?|";...sh |
|00003a10| 3d 20 47 65 74 53 74 72 | 69 6e 67 28 72 54 61 73 |= GetStr|ing(rTas|
|00003a20| 6b 4e 61 6d 65 29 3b 0d | 09 69 66 20 28 73 68 20 |kName);.|.if (sh |
|00003a30| 21 3d 20 6e 69 6c 29 0d | 09 09 53 74 72 69 6e 67 |!= nil).|..String|
|00003a40| 43 6f 70 79 28 2a 73 68 | 2c 74 61 73 6b 4e 61 6d |Copy(*sh|,taskNam|
|00003a50| 65 29 3b 0d 09 73 68 20 | 3d 20 47 65 74 53 74 72 |e);..sh |= GetStr|
|00003a60| 69 6e 67 28 72 54 61 73 | 6b 54 79 70 65 29 3b 0d |ing(rTas|kType);.|
|00003a70| 09 69 66 20 28 73 68 20 | 21 3d 20 6e 69 6c 29 0d |.if (sh |!= nil).|
|00003a80| 09 09 53 74 72 69 6e 67 | 43 6f 70 79 28 2a 73 68 |..String|Copy(*sh|
|00003a90| 2c 74 61 73 6b 54 79 70 | 65 29 3b 0d 09 0d 09 67 |,taskTyp|e);....g|
|00003aa0| 54 49 44 20 3d 20 4f 70 | 65 6e 51 75 65 75 65 28 |TID = Op|enQueue(|
|00003ab0| 30 29 3b 0d 09 69 66 20 | 28 67 54 49 44 20 3d 3d |0);..if |(gTID ==|
|00003ac0| 20 30 29 20 7b 0d 09 09 | 72 65 74 75 72 6e 28 65 | 0) {...|return(e|
|00003ad0| 4e 6f 41 52 4f 53 45 29 | 3b 0d 09 7d 0d 09 69 66 |NoAROSE)|;..}..if|
|00003ae0| 20 28 21 52 65 67 69 73 | 74 65 72 5f 54 61 73 6b | (!Regis|ter_Task|
|00003af0| 20 28 70 32 63 73 74 72 | 28 26 74 61 73 6b 4e 61 | (p2cstr|(&taskNa|
|00003b00| 6d 65 29 2c 20 70 32 63 | 73 74 72 28 26 74 61 73 |me), p2c|str(&tas|
|00003b10| 6b 54 79 70 65 29 2c 20 | 4d 61 63 68 69 6e 65 5f |kType), |Machine_|
|00003b20| 56 69 73 69 62 6c 65 29 | 29 20 7b 0d 09 09 43 6c |Visible)|) {...Cl|
|00003b30| 6f 73 65 51 75 65 75 65 | 28 29 3b 20 2f 2f 20 62 |oseQueue|(); // b|
|00003b40| 65 74 74 65 72 20 63 6c | 65 61 6e 20 75 70 20 2d |etter cl|ean up -|
|00003b50| 20 77 65 20 61 72 65 20 | 67 6f 69 6e 67 20 74 6f | we are |going to|
|00003b60| 20 45 78 69 74 20 0d 09 | 09 72 65 74 75 72 6e 28 | Exit ..|.return(|
|00003b70| 65 52 65 67 69 73 74 65 | 72 29 3b 0d 09 7d 0d 09 |eRegiste|r);..}..|
|00003b80| 72 65 74 75 72 6e 28 6e | 6f 45 72 72 29 3b 0d 7d |return(n|oErr);.}|
|00003b90| 0d 0d 0d 23 70 72 61 67 | 6d 61 20 73 65 67 6d 65 |...#prag|ma segme|
|00003ba0| 6e 74 20 4d 61 69 6e 0d | 76 6f 69 64 20 54 61 73 |nt Main.|void Tas|
|00003bb0| 6b 50 72 6f 63 65 73 73 | 69 6e 67 28 29 0d 7b 0d |kProcess|ing().{.|
|00003bc0| 09 6d 4d 65 73 73 61 67 | 65 20 2a 6d 3b 0d 09 47 |.mMessag|e *m;..G|
|00003bd0| 72 61 66 50 74 72 20 73 | 61 76 65 50 6f 72 74 3b |rafPtr s|avePort;|
|00003be0| 0d 09 0d 09 0d 09 6d 20 | 3d 20 52 65 63 65 69 76 |......m |= Receiv|
|00003bf0| 65 28 30 4c 2c 20 30 4c | 2c 20 30 4c 2c 20 2d 31 |e(0L, 0L|, 0L, -1|
|00003c00| 4c 2c 20 6e 69 6c 29 3b | 20 20 2f 2f 20 2d 31 4c |L, nil);|  // -1L|
|00003c10| 3a 20 72 65 74 75 72 6e | 20 77 69 74 68 6f 75 74 |: return| without|
|00003c20| 20 77 61 69 74 69 6e 67 | 20 28 4f 53 5f 4e 4f 5f | waiting| (OS_NO_|
|00003c30| 54 49 4d 45 4f 55 54 29 | 0d 09 09 09 09 09 09 09 |TIMEOUT)|........|
|00003c40| 09 09 09 2f 2f 20 6e 69 | 6c 3a 20 6e 6f 20 63 6f |...// ni|l: no co|
|00003c50| 6d 70 6c 65 74 69 6f 6e | 20 72 6f 75 74 69 6e 65 |mpletion| routine|
|00003c60| 0d 09 09 09 09 09 09 09 | 09 09 09 0d 2f 2f 20 69 |........|....// i|
|00003c70| 6e 20 41 2f 52 4f 53 45 | 20 74 68 69 73 20 77 6f |n A/ROSE| this wo|
|00003c80| 75 6c 64 20 62 65 3a 09 | 6d 20 3d 20 52 65 63 65 |uld be:.|m = Rece|
|00003c90| 69 76 65 28 4f 53 5f 4d | 41 54 43 48 5f 41 4c 4c |ive(OS_M|ATCH_ALL|
|00003ca0| 2c 20 4f 53 5f 4d 41 54 | 43 48 5f 41 4c 4c 2c 20 |, OS_MAT|CH_ALL, |
|00003cb0| 4f 53 5f 4d 41 54 43 48 | 5f 41 4c 4c 2c 20 4f 53 |OS_MATCH|_ALL, OS|
|00003cc0| 5f 4e 4f 5f 54 49 4d 45 | 4f 55 54 29 3b 0d 09 69 |_NO_TIME|OUT);..i|
|00003cd0| 66 20 28 6d 29 20 7b 0d | 09 09 67 52 65 63 65 69 |f (m) {.|..gRecei|
|00003ce0| 76 65 64 2b 2b 3b 0d 0d | 09 09 69 66 20 28 6d 2d |ved++;..|..if (m-|
|00003cf0| 3e 6d 53 74 61 74 75 73 | 20 21 3d 20 30 29 09 20 |>mStatus| != 0). |
|00003d00| 7b 09 2f 2f 20 6d 65 73 | 73 61 67 65 20 77 61 73 |{.// mes|sage was|
|00003d10| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 75 6e 64 65 | conside|red unde|
|00003d20| 6c 69 76 65 72 61 62 6c | 65 0d 09 09 09 41 6c 65 |liverabl|e....Ale|
|00003d30| 72 74 55 73 65 72 28 65 | 55 6e 64 65 6c 69 76 65 |rtUser(e|Undelive|
|00003d40| 72 61 62 6c 65 29 3b 0d | 09 09 09 46 72 65 65 4d |rable);.|...FreeM|
|00003d50| 73 67 28 6d 29 3b 09 09 | 09 09 2f 2f 20 6f 66 20 |sg(m);..|..// of |
|00003d60| 6e 6f 20 75 73 65 20 61 | 6e 79 20 6d 6f 72 65 3a |no use a|ny more:|
|00003d70| 20 67 69 76 65 20 69 74 | 20 62 61 63 6b 20 74 6f | give it| back to|
|00003d80| 20 41 2f 52 4f 53 45 0d | 09 09 7d 0d 09 09 65 6c | A/ROSE.|..}...el|
|00003d90| 73 65 20 7b 0d 09 09 09 | 73 77 69 74 63 68 20 28 |se {....|switch (|
|00003da0| 6d 2d 3e 6d 43 6f 64 65 | 29 09 7b 0d 09 09 09 63 |m->mCode|).{....c|
|00003db0| 61 73 65 20 44 55 4d 4d | 59 43 4f 44 45 3a 0d 09 |ase DUMM|YCODE:..|
|00003dc0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 63 61 73 |...break|;....cas|
|00003dd0| 65 20 52 45 53 45 54 43 | 4f 44 45 3a 0d 09 09 09 |e RESETC|ODE:....|
|00003de0| 09 67 52 65 63 65 69 76 | 65 64 20 3d 20 30 3b 0d |.gReceiv|ed = 0;.|
|00003df0| 09 09 09 09 67 53 65 6e | 74 20 3d 20 2d 31 3b 20 |....gSen|t = -1; |
|00003e00| 2f 2f 20 77 61 6e 74 20 | 74 6f 20 68 61 76 65 20 |// want |to have |
|00003e10| 3d 30 20 61 66 74 65 72 | 20 67 53 65 6e 74 2b 2b |=0 after| gSent++|
|00003e20| 20 62 65 6c 6f 77 0d 09 | 09 09 09 62 72 65 61 6b | below..|...break|
|00003e30| 3b 0d 09 0d 09 09 09 2f | 2f 20 68 61 6e 64 6c 65 |;....../|/ handle|
|00003e40| 20 68 65 72 65 20 61 6c | 6c 20 74 68 65 20 6d 65 | here al|l the me|
|00003e50| 73 73 61 67 65 20 63 6f | 64 65 73 20 79 6f 75 20 |ssage co|des you |
|00003e60| 73 70 65 63 69 66 69 65 | 64 20 69 6e 20 79 6f 75 |specifie|d in you|
|00003e70| 72 20 64 65 73 69 67 6e | 20 21 20 0d 09 09 09 0d |r design| ! .....|
|00003e80| 09 09 09 64 65 66 61 75 | 6c 74 3a 0d 09 09 09 09 |...defau|lt:.....|
|00003e90| 41 6c 65 72 74 55 73 65 | 72 28 65 55 6e 6b 6e 6f |AlertUse|r(eUnkno|
|00003ea0| 77 6e 4d 73 67 29 3b 0d | 09 09 09 09 6d 2d 3e 6d |wnMsg);.|....m->m|
|00003eb0| 43 6f 64 65 20 7c 3d 20 | 30 78 38 30 30 30 3b 09 |Code |= |0x8000;.|
|00003ec0| 2f 2f 20 75 6e 72 65 63 | 6f 67 6e 69 7a 65 64 20 |// unrec|ognized |
|00003ed0| 6d 65 73 73 61 67 65 20 | 63 6f 64 65 3b 0d 09 09 |message |code;...|
|00003ee0| 09 09 6d 2d 3e 6d 53 74 | 61 74 75 73 20 3d 20 4f |..m->mSt|atus = O|
|00003ef0| 53 5f 55 4e 4b 4e 4f 57 | 4e 5f 4d 45 53 53 41 47 |S_UNKNOW|N_MESSAG|
|00003f00| 45 3b 20 2f 2f 20 64 65 | 66 69 6e 65 64 20 69 6e |E; // de|fined in|
|00003f10| 20 22 6d 61 6e 61 67 65 | 72 73 2e 68 22 0d 09 09 | "manage|rs.h"...|
|00003f20| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 7d 0d 09 09 |..break;|....}...|
|00003f30| 09 2f 2f 20 73 65 6e 64 | 20 6d 65 73 73 61 67 65 |.// send| message|
|00003f40| 20 62 61 63 6b 20 0d 09 | 09 09 53 77 61 70 54 49 | back ..|..SwapTI|
|00003f50| 44 28 6d 29 3b 0d 09 09 | 09 6d 2d 3e 6d 43 6f 64 |D(m);...|.m->mCod|
|00003f60| 65 2b 2b 3b 0d 09 09 09 | 53 65 6e 64 20 28 6d 29 |e++;....|Send (m)|
|00003f70| 3b 0d 09 09 09 67 53 65 | 6e 74 2b 2b 3b 0d 09 09 |;....gSe|nt++;...|
|00003f80| 09 0d 09 09 09 47 65 74 | 50 6f 72 74 28 26 73 61 |.....Get|Port(&sa|
|00003f90| 76 65 50 6f 72 74 29 3b | 0d 09 09 09 53 65 74 50 |vePort);|....SetP|
|00003fa0| 6f 72 74 28 67 4d 79 57 | 69 6e 64 6f 77 29 3b 0d |ort(gMyW|indow);.|
|00003fb0| 09 09 09 0d 09 09 09 49 | 6e 76 61 6c 52 65 63 74 |.......I|nvalRect|
|00003fc0| 28 26 28 67 4d 79 57 69 | 6e 64 6f 77 2d 3e 70 6f |(&(gMyWi|ndow->po|
|00003fd0| 72 74 42 69 74 73 2e 62 | 6f 75 6e 64 73 29 29 3b |rtBits.b|ounds));|
|00003fe0| 20 2f 2f 20 75 70 64 61 | 74 65 20 64 69 73 70 6c | // upda|te displ|
|00003ff0| 61 79 49 6e 76 61 6c 52 | 65 63 74 49 6e 76 61 6c |ayInvalR|ectInval|
|00004000| 52 65 63 74 28 72 29 3b | 0d 09 09 09 0d 09 09 09 |Rect(r);|........|
|00004010| 53 65 74 50 6f 72 74 28 | 73 61 76 65 50 6f 72 74 |SetPort(|savePort|
|00004020| 29 3b 0d 09 09 7d 0d 09 | 7d 09 09 0d 7d 0d 00 00 |);...}..|}...}...|
|00004030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004080| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00004090| 00 00 12 fa 00 4d 03 00 | 00 00 00 00 00 00 00 00 |.....M..|........|
|000040a0| 00 00 00 02 07 4d 50 57 | 20 33 2e 31 00 00 00 00 |.....MPW| 3.1....|
|000040b0| 0c 54 61 73 6b 53 61 6d | 70 6c 65 2e 63 6d 02 00 |.TaskSam|ple.cm..|
|000040c0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 71 |..TEXTMP|S .....q|
|000040d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 71 |..TEXTMP|S .....q|
|000040e0| 00 00 00 e6 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040f0| 00 00 a2 a1 6b ff 00 00 | 3f ae 00 00 01 7e 00 00 |....k...|?....~..|
|00004100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004110| 00 00 00 00 00 00 00 00 | 00 00 10 00 00 00 12 fa |........|........|
|00004120| 0a 49 6e 74 65 72 66 61 | 63 65 73 72 01 00 00 00 |.Interfa|cesr....|
|00004130| 00 04 00 00 12 fc 9f b7 | a4 ac a2 94 91 fb 00 00 |........|........|
|00004140| 00 00 00 67 00 16 01 13 | 01 2e 01 00 00 00 00 00 |...g....|........|
|00004150| 01 00 ff f8 ff ed 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004170| 00 00 0f 00 00 00 12 fa | 09 4c 69 62 72 61 72 69 |........|.Librari|
|00004180| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 66 00 c9 |...H..Mo|naco.f..|
|00004190| 01 59 01 66 7f ff 00 d4 | 01 59 01 66 7f ff 01 00 |.Y.f....|.Y.f....|
|000041a0| 00 09 00 0a 7f ff 00 06 | 00 04 00 3c 00 24 01 dd |........|...<.$..|
|000041b0| 02 3d 00 3c 00 24 01 dd | 02 3d a2 ff 50 51 00 00 |.=.<.$..|.=..PQ..|
|000041c0| 0d f2 00 00 0d f2 00 00 | 0c b9 01 00 00 00 01 00 |........|........|
|000041d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 2c 90 ec |...L...L|...2.,..|
|000041e0| 0b 64 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.d.....2|..MPSR..|
|000041f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 2e 38 74 00 00 |........|....8t..|
+--------+-------------------------+-------------------------+--------+--------+